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general  flow  passage  program 


ABSTRACT 

The  General  Flow  Passage  computer  program  calculates  the  one-dimensional 
aerothermal  performance  of  a  compressible  flow  passage  of  arbitrary 
geometry.  ‘Fh*  program  computes  overall  temperature  and  pressure  levels  as  well 
as  local  axial  pressure  and  surface  temperatures .  It  will  accomodate  non- 
frictional  pressure  loss  coefficients  at  axial  locations  as  well  as  at 
entrance  and  exit •  Both  laminar  and  turbulent  flow  a re  treated  and 
internal  expansion  and  contraction  losses  can  be  computed  by  the  program. 

Almost  any  likely  combination  of  flow  and  temperature  data  is  acceptable 
as  input  data,  such  as  maximum  surface  temperature  or  pressure  drop. 

Heat  transfer  "boundary  conditions"  are  tailored  for  nuclear  heat  transfer 
problems,  but  not  irremediably  so. 
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INTRODUCTION 


The  General  Flow  Passage  .program  (hereafter  referred  to  by  the  initials 
"GFP")  is  a  considerably  extended  growth  version  of  an  earlier  ANP 
Department  program,  the  Off -Design  Program  (reference  2 ) .  ■ Both  programs 
utilize  the  same  one-dimensional  compressible  flow  loss  analysis  as 
applied-  to  a  single  flow  passage,  but'  GFP  accepts  a  much  greater  variety 
of  input  data  and,  it  is  hoped,  is  much  simpler  to  use. 

The  Off -Design  program  was  originally  conceived  for  the  purpose  of 
providing  a  fast,  convenient  method  .to  calculate.- the  off-design-point 
performance  of  nucleai  reactor  cores.  It  proved  to  be  guit'e*  successful 
for  that  purpose  and,  further,  has  proven  to  be  a  real  workhorse'  program 
for  compressible  flow  calculations  for  almost  any  kind  of  flow  passage. 
Applications  have  included  preliminary  sizing  and  parametia^peiformance 
calculations  for  nuclear  reactor  cores,  shield  coolant  flow, determination, 
analysis  of  test  data,  calculation-  of  control  rod  coolant  flow,  and  many 
similar  tasks . 

The  shortcomings  of  the  Off-Design  program  were  -that;  l)  the (preparation 
of  the  input  data  was  more  tedious  than  necessary,  2)  there  was  no 
provision  for  the  insertion  of  non-frictional  pressure  -losses'  along  the 
length  of  the  flow  passage >  3)  there  was  no  provision  for  parametric 
calculations  whereby  one  or  more  of  the  flow  variables .could  be  systematically 
varied  by  a  single  record  of  input  data,-'  4)  no  sort  of  summary  printout 
for  a  group  of  cases  computed  during  one  computer'  run-  could  be  obtained, 

5)  only  fully  developed  turbulent  flow  was  treated,  and  6)  only  the  mass 
flow,  inlet  and  exit  total  temperatures,  and.  the  iftlet  -total  pressure 
could  be  specified  as  input  flow  and  temperature  data.  The  'effect  of 
the  last  restriction  was  that  it  proved  to  be/me, pessary  to  .plot  the 
results  of  Off -Design  cases  when  it  was  desired  to  have'  a  specified  exit 
total  or  static  pressure  or  a  specified  maximum  surface  temperature. 

By  such  graphs,  the  necessary  value  of  the  inlet  pressure,  mass  flow,  or 
inlet  or  exit  temperature ; could  be  determined. 

The  GFP  program  has  successfully  overcome  all  of  these  shortcomings  and, 
hence,  represents  a  valuable  tool  for  the  aerothermal  designer.  It  is 
naturally  formulated  in  terms  of  the  boundary  conditions  ordinarily  used 
by  the  nuclear  heat  transfer  designer,  but  there  is  no  major  analytical 
or  logical  difficulty  in  the  way  of  revising  the  program  to  accept 
other  types  of  boundary  conditions.  This  matter  is  discussed  in  the 
Programmer  and  Analyst  Comments  section  of  the  present  report. 

The  present  report  contains  a  complete  listing  to  the  Fortran  source 
deck  together  with  certain  SAP-coded  subroutines  which  are  not  generally 


available . 

STATUS  OF  PROGRAM 

AFP  7090  DIGITAL  PROGRAM 

No.  663 

Title 

Engineer 

Unit 

General  Flow  Pass  sage 

S .  C .  Skirvin  (Anal . 

Fluid  Mech. 

Program  (GFP) 

and  Coding) 
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Computer 


Status 


Category 
The  rmodynamic  s 


IBM  7090  Production  (very  little 

32 K  memory  production  useage) 

SS2  up  for  input  from  logical  2,  SS2  down  for  card  input.  SS3  up  for  output 
on  logical  3,  SS3  down  for  output  on-line. 

Abstract 

Calculates  one -dimensional  aerothermal  performance  of  a  compressible  flow 
passage  of  arbitrary  geometry.  Computes  overall  temperature  and  pressure  levels 
as  well  as  local  axial  and  surface  temperatures .  It  will  accomodate  non- 
frictional  pressure  loss  coefficients  at  axial  locations  as  well  as  at  entrance 
and  exit.  Both  laminar  and  turbulent  flow  are  treated  and  internal  expansion 
and  contraction  losses  can  be  computed  by  the  program.  Almost  any  likely 
combination  of  flow  and  temperature  data  is  acceptable  as  input  data,  such  as 
maximum  surface  temperature  or  pressure  drop.  Heat  transfer  "boundary 
conditions"  are  tailored  for  nuclear  heat  transfer  problems. 

References 

■Skirvin,  S.  C.,  "General  Flow  Passage:  A  Computer  Program  to  Calculate 
Aerothermal  Pefformanee  of  an  Arbitrary  Passage  of  Fixed  Geometry 
(AMP  663)"  GE  ANT’D  APEX  664,  8/6l 

Additional  Remarks 

Program  is  on  file  with:  Communications  Specialist- 

General  Electric  Company 
FPID  Computations  Operation 
Cincinnati  15,  Ohio 


III  MATHEMATICAL  AND  LOGICAL  ANALYSIS 


As  was  noted  in  the  Introduction,  the  GFP  program  utilizes  the  same 
compressible  flow  loss  analysis  as  did  the  Off -Design  program  described 
in  reference  2.  The  pertinent  equations  will  be  described  below,  for 
the  sake  of  completeness . 

A  considerably  different  analysis  was  employed  for  the  calculation  of 
surface  temperature  in  GFP  because  the  iterative  method  used  in  the  Off- 
Design  program  proved  to  be  unstable  when  direct  thermal  property 
values  were  used.  (The  Off-Design  program  utilized  air  properties 
implicitly  expressed  in  the  turbulent  Nusselt  Number  correlation  as 
exponential  functions  of  temperature . )  A  numerical  root-finding 
technique  was  used  instead  in  GFP. 

The  same  root-finding  technique  is  used  in  more  general  form  in 
the  iterations  which  enable  the  GFP  program  to  calculate,  say,  the 
weight  flow  required  to  produce  a  specified  maximum  surface  temperature 
even  though  the  latter  is  a  function  of  the  former. 

In  addition  to  the  above  major  items,  sufficient  explanatory  material 
is  provided  to  answer  most,  if  not  all,-  of  the  questions  about  the 
contents  of  the  GFP  program  which  might  arise. 
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III.l  Compressible  Flow  Loss  Analysis 


The  stage  exit  bulk  (total)  temperature  for  the  n-th  stage  is  computed 
from  the  power  profile  by 


where  Tg(  )  is  the  temperature  function  of  enthalpy  and  the  total 
enthalpy  increase ,  A  H,  is  computed  from 

Hip(  )  is  the  enthalpy  function  of  temperature. 


For  the  n-th  stage  of  finite,  non-zero  length  A  the  pressure  drop 
due  to  friction  and  heat  addition  can  be  expressed,  following  reference 
6,  as 


which  is  an  approximate,  integrated  form  of  a  differential  equation 
in  the  reference  cited.  The  average  Mach  number  over  the  length  A  L 
is  assumed  to  be  given  by 


M. 


fl 


a,  n 


-h  M 

n,  n  ^ 


(4) 


The  inlet  and  exit  Ifech  numbers  are  both  calculated  by  iteration  from 
the  relation 
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Equation  (5)  is  evaluated  by  the  Fortran  function  AMACH. 


The  iterative  loop  represented  by  equations  (j)  thru  (5)  is  contained  in 
the  subroutine  DPFRLT.  The  sequence  of  calculations  is  to  assume  an 
exit  total  pressure,  calculate  the  exit  Mach  number  with  function  AMACH, 
evirate  the  average  Mach  number  with  equation  (4),  and  calculate  the  exit 
total  pressure  with  equation  (3 ) •  If  the  assumed  and  calculated  values  of 
exit  total  pressure  agree  within  a  specified  fractional  tolerance,  the 
iteration  is  finished.  Otherwise,  the  newly  calculated  exit  total  pressure 
is  assumed  for  the  next  iteration  loop.  A  nominal  counter  limit  is  installed 
in  the  iteration  loop. 

The  fully-developed  friction, factor,  f,  is  calculated  from  a  standard 
correlation  -form 

■  A'g  (6) 

where  the  coefficient "d"  and  the  exponent  "e"  are  supplied  by  the  user  for 


both  the  laminar  and  turbulent  flow  regimes.  Transition  is  assumed  to 
occur  abruptly  at  WRe=  2300  and  non-fully  developed  flow  effects  (entrance 
length  effects)  can  be  simulated  as  explained  on  the  input  data  forms  and  in 
the  User's  Instructions.  The  friction  factor  correlations  are  always  assumed 
to  be  based  on  bulk  temperature  properties .  The  mean  Reynolds  number  for 
the  stage  is  used  in  equation  (6). 

Stage  exit  dynamic  pressures  are  computed  from  the  equation 


which  is  incorporated  into  the  Fortran  function  DYFRS. 

When  an  interstage  total  pressure  loss  is  to  be  calculated  as  a  fraction 
of  the  local  dynamic  pressure,  the  appropriate  coefficient  is  multiplied 
times  the  dynamic  pressure  computed  function  DYPRS.  When  the  appropriate 
loss  coefficient  is  to  be  computed  by  the  program  if  an  area  change 
occurs  from  one  stage  to  the  next,  the  Fortran  function  LOSS  is  used  to 
carry  out  the  computation. 

Both  entrance  and  exit  losses  are  computed  by  the  method  just  described, 
utilizing  the  appropriate  coefficients . 

When  stage  exit  static  pressures  are  to  be  computed,  the  equation 


is  used.  It  is'  incorporated  into  the  Fortran  function  PSTAT. 


III. 2  Numerical  Root-Finding  Technique 

The  technique  to  be  described  has  an  overwhelming  advantage  for  the 
present  applications  in  that  no  analytical  relationship  need  be  known 
between  the  independent  and  dependent  variables.  It  is,  essentially,  . 
a  numerical  version  of  the  conventional  graphical  method  of  extrapolation/ 
interpolation  for  roots  of  functions . 

In  GFP,  the  inlet  total  pressure  (PTIN)  and  the  mass  flow  (W)  are  used 
as  independent  variables,  depending  on  which  input  option  is  being 
exercised.  Dependent  variables  can  be  maximum  surface  temperature 
(TWMAX),  exit  static  pressure  (PSEX),  or  exit  total  pressure  (PTEX).  A 
special  application  of  the  technique  is  made  in  calculating  surface 
temperature,  as  has  been  noted. 

Before  the  root-finding  technique  can  be  applied,  two  values  of  the  in¬ 
dependent  variable  and  the  corresponding  values  of  the  dependent 
variable  must  be  available .  The  generation  of  "starting  values "  is 
described  in  the  section  with  that  name. 
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The  second  value  of  mss  flow  when  the  dependent  value  is  the  maximum 
surface  temperature  is  calculated  from 


wU, ,  -  H 


*t/ 


% 


l,2S 


x  -  c  a  /c  ,  / 

~r* 

'  IV A  X 


(9) 


where  the  asterisk  denotes  the  desired  value.  When  the  exit  static  or 
total  pressure  is  the  dependent  variable ,  the  second  value  of  mass 
flow  is  calculated  from  _ 


es t. 


(10) 


The  second  value  of  inlet  total  temperature  (with  which  exit  static  or 
total  pressure  is  always  the  dependent  variable )  is  calculated  from 


P 


=  R 

t  w 


(11) 


When  the  two  values  each  of  the  independent  and  dependent  variable  have 
been  obtained,  the  next  estimate  of  the  independent  variable  is  obtained 
by  linear  extrapolation  from 


where  x  and  y  are  independent  and  dependent  variables  respectively,  the 
asterisk  denotes  the  desired  value  as  before,  and  the'  subscripts  refer  to 
the  sequential  order  of  the  estimates  and  the  corresponding  yields  of  the 
dependent  variable. 


Once  three  sets  of  values  have  been  obtained  and  thereafter  during  the 
root-finding  procedure,  the  next  estimate  of  the  dependent  variable  is 
always  calculated  by  a  quadratic  extrapolation/interpolation  which  fits 
a  parabola  through  the  last  three  points  calculated  and  uses  the 
intersection  of  that  parabola  with  the  line  y  =  y^  as  the  next  estimate 
of  the  independent  variable .  The  parabola  has  its  axis  parallel  to  the 
"x-axis"  in  order  to  obtain  single-valued  results.  The  i-Kl  estimate 
of  the  root  (value  of  the  independent  variable)  is  calculated  from 

*«>,  -  X  +  <«> 
v  + 


The  fitted  parabola  is  calculated  from  the  relations 
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Hf  -  ^  (yi-z  "V*) 
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Equations  (12  thru  (14)  are  coded  in  the  subroutine  EXTRAP.  Convergence 
on  the  desired  root  is  recognized  for  exit  pressures  when  the  fractional 
tolerances  ACCPRS  is  satisfied  and  for  surface  temperatures  when  the 
absolute  tolerance  ACCTMP  is  satisfied. 


Ill .3  Starting  Values 

No  provision  has  been  made  for  the  user  to  load  a  starting  value  for  the 
inlet  pressure ,  when  it  is  the  independent  variable.  A  starting  value 
may  or  may  not  be  loaded  for  mass  flow.  For  the  first  case  of  a  given 
computer  run,  the  compressible  flow  f met ion  is  used  in  one  of  the  following 
forms  when  a  starting  value  is  needed: 


For  mass  flow. 


(15) 


in  which  a  Mach  Number  of  0.1  is  assumed.  Equation  (15)  is  contained  in 
the  Fortran  function  FLWFUN. 


For  inlet  pressure,  Y*"/^. 

Pr-.IT  w fi?  (i6) 

y*i  ~im  (  A  ' 

t  ?; 

in  which  a  Mach  Number  of  0.1  is  also  assumed.  Equation  (16)  is 
contained  in  the  Fortran  function  PRSFUN. 

Subsequent  cases  will  ordinarily  use  a  starting  value  carried  over  from 
a  preceding  case,  unless  a  new  value  has  been  loaded  for  mass  flow  in  the 
appropriate  circumstances .  ' 


III. 4  Remedial  Action  in  the  Event  of  Choking  (subroutine  TJNCHKE) 

If  choking  is  encountered  in  one  of  the  input  options  wherein  the  user 
has  specified  both  inlet  total  pressure  and  mass  flow,  no  remedial  action 
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is  possible;  the  user  has  chosen  a  flow  which  chokes  at  the  specified 
pressure  level.  (Choking  is  assumed  whenever  a  Mach  Number  of  0.9  or 
higher  is  encountered  during  calculations . ) 

For  all  other  input  options,  a  choking  remedial  action  is  carried  out  which 
adjusts  the  independent  variable  in  a  suitable  fashion  to  remove  the  choke . 

The  fact  that  the  user  has  actually  specified  a  set  of  conditions  which 
lie  beyond  the  choking  limit  is  recognized  only  by  exceeding  a  suitable 
counter  limit  on  the  number  of  times  a  choking  remedial  can  be  carried 
out. 

As  a  preliminary  to  the  root-finding  for  any  of  the  so-called  "iterative 
options”,  two  bounds,  WHI  and  WLO,  are  set  up  which  no  estimate  of  the 
independent  variable  is  permitted  to  exceed.  WHI  and  WLO  can,  of  course, 
represent  either  mass  flows  or  inlet  total  pressure  levels .  WHI  is  either 
the  lowest  choking  value  of  mass  flow  or  the  lowest  non-choking  inlet 
total  pressure.  WLO  is  the  highest  non-choking  mass  flow  or  the  highest 
choking  inlet  total  pressure.  For  mass  flow,  WHI  is  initialized  by  evaluating 
equation  (15)  with  a  Mach  Number  of  0.9  and  WLO  is  set  equal  to  zero. 

For  inlet  total  pressure,  WLO  is  initialized  by  evaluating  equation  (1 6) 
with  a  Mach  Number  of  0.9  and  WHI  is  set  equal  to  IO30. 

When  a  choke  is  encountered,  new  values  of  the  independent  variable  are 
generated  by  suitable  application  of  the  appropriate  compressible  flow 
function  (equation  (15)  or  (16))  combined  with  a  check  to  see  that  such 
new  values  lie  between  WHI  and  WLO.  If  these  bounds  are  exceeded, 
dichotimization  is  resorted  to,  wherein  the  new  value  of  the  independent 
variable  is  chosen  as  the  mean  of  WHI  and  WLO  which  are  themselves 
constantly  updated  during  the  choking  remedial. 

The  detailed  procedure  is  shorn  in  Figure  3  which  gives  the  logical  flow 
chart  for  the  subroutine  UNCHKE. 


Ill . 5  Calculation  of  Surface  Temperature 

The  Nusselt  Numbers  needed  for  the  calculation  of  surface  temperature 
are  determined  from  standard  correlations  of  the  form 

'V  -  *  Npf  \  ‘ =  (17> 

which  is  intended  to  yield  fully  developed  values .  Mean  Reynolds 
Numbers  for  the  stage  are  used  in  equation  (17 ) •  Values  for  a,  b,  and 
c  must  be  given  for  both  the  laminar  and  turbulent  regimes.  The 
question  of  whether  the  Reynolds  number,  Npe,  used  in  equation  (17)  is 
to  be  evaluated  for  film  or  bulk  conditions  is  entirely  dependent  on 
whether  the  Nusselt  number  correlation  is  based  on  film  or  bulk  properties. 
In  the  former  case,  the  Prandil  Number  and  the  thermal  conductivity 
would  also  be  evaluated  at  film  temperature.  If,  which  is  defined  by 
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The  film  Reynolds  Number  can  be  computed  from  the  bulk  value  by 


A  / 

>  'fat 
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(19) 


(derivation  based  simply  on  using  viscosity  and  density  evaluated  at 
film  temperature ) . 

A  transitional  flow  regime  is  assumed  to  exist  between  true  laminar  and 
turbulent  flow,  the  actual  Reynolds  Number  limits  being  specified  by 
the  program  user  (values  of  2000  and  800Q  are  otherwise  assumed  by  the 
program  for  TRANHL  (NReo)  and  TRANHU  (%el),  respectively).  The  Nusselt 
Number  in  this  region  is  computed  by  a  curve  fit  which  matches  the  laminar 
and  turbulent  Nusselt  Numbers  computed  at  NReg  and  %ei,  respectively, 
and  fairs  smoothly  into  the  turbulent  region  (that  is ,  continuous  first 
derivative ) . 


The  transition  Nusselt  Number  is  computed  from  the  relationship 


where  the 
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factor  is  obtained  from  the  fitted  equation 


AC 


(20) 


(21) 


The  curve  fit  coefficients  can  be  written  as 


Nr  ei 


(22b) 


c 


(22c) 


The  terms  l(0  and  are  calculated  by  evaluating  equation  (20)  at  NR6q 
and  NRel,  respectively..  The  cT  is  the  Reynolds  Number  exponent  for 
turbulent  Nusselt  Number.  The  derivation  of  A,  B,  and  C  is  described  in 
Appendix  C . 
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The  surface  temperature  can  he  computed  from  the  basic  heat  balance  as 


AHk  &>,  4 

■& 


(23) 


Obviously,  if  the  appropriate  Nusselt  Number  correlation  is  based  on  bulk 
properties,  the  surface  temperature  has  been  calculated  with  one  application 
of  equation  (20).  However,  if  the  correlation  is  based  on  film  temperature 
which  is  itself  a  function  of  surface  temperature,  then  recourse  must  be 
had  to  some  sort  of  iterative  procedure .  •  ' 


During  the  development  of  the  GFP  program,  the  calculation  of  surface 
temperature  was  attempted  by  iteration  with  non-accelerated* convergence 
and  with  the  me thod-of- secants  acceleration  technique  (reference  7)  • 

This  was  done  by  correcting  the  film  temperature  with  new  values  of  surface 
temperature  calculated  from  equation  (23)  until  the' assumed  and  calculated 
temperature  agreed  within  the  tolerance  ACCTMP. 


It  was  found  that  the  iterations  were  nbn-convergent  in  some  of  the  test 
cases.  Therefore,  the  numerical  root-finding  technique  previously  des¬ 
cribed  was  adopted  with  complete  success . 

For  application  to  the  determination  of  surface  temperature,  the  surface 
temperature  was  chosen  as  the  independent  variable  and  the  enthalpy  change 
of  the  fluid  in  passing  thru  the  stage  was  chosen  as  the  dependent  variable. 
Convergence  was  recognized,  as  before,  when  successive  estimates  of  surface 
temperature  differed  by  less  than  ACCTMP • 

The  first  two  estimates  of  surface  temperature  were  obtained  by  iteration 
with  equation  (23).'  It  should  be  noted  that  the  heat  transfer  coefficient 
used  in  calculating  the  enthalpy  release  must  correspond  to'  the  surface 
temperature .  This  is  a  somewhat  subtle  matter  during  the  starting  iterations 
since  the  sequence  of  calculation  during  the  actual  root-finding  is  different. 
The  i-th  estimate  of  enthalpy  release  is  calculated  from 
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The  design  enthalpy  release,  /\  H,  is  determined  for  the  stage  from  the 
power  profile  and  the  total  enthalpy  increase  along  the  passage. 

It  is  evident  from  inspection  of  equation  (l8)  that,  if  the  -bulk  and  film 
temperatures  differ  appreciably,  the  film  Reynolds  Number  will  differ 
considerably  from  the  bulk  Reynolds  Number.  Since  transitional  flow  is 
recognized  by  inspection  of  the  bulk  Reynolds  Number  and  the  curve  fit 
described  in  equations  (20)  thru  (22)  is  nominally  based  on  bulk  Reynolds 
Numbers,  it  is  also  evident  that  some  difficulties  might  arise  when 
computing  transitional  Nusselt  Number  based  on  film  temperature .  The 
arbitrary,  but  reasonable,  choice  was  made  to  modify  the  transition 
boundary  Reynolds  Numbers  by  the  "film  factor",  >  as  used 

in  equation  (19)  when  the  corresponding  correlation  is ’based  on  film 
temperature . 
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There  are  some  minor  discrepancies  remaining  in  both  the  binary  deck  and 
the  listed  decimal  source  deck  for  the  TWLT  subroutine  (Figure  4)  in  which 
the  preceding  equations  are  incorporated.  When  only  one  of  the  Nusselt 
Number  correlations  is  based  on  film  temperature  and  the  flow  is 
transitional ,  all  of  the  transition  calculations  are  based  on  film  temperature, 
including  the  modification  of  both  transition-bounding  Reynolds  Numbers . 

The  effect  should  be  small,  but  if  the  program  user  is  concerned,  it  would 
be  necessary  during  transitional  calculations  to  check  which  regime  had 
the  correlation  based  on  bulk  temperature  and  then  to  leave  that  bounding 
Reynolds  Number  unmodified  by  the  "film  effect"  coefficient  and  to  evaluate 
the  Prandtl  Number  and  Nusselt  Number  at  that  boundary  at  the  proper  bulk 
temperature . 

Another  error  or  inconsistency  which  the  program  user  may  wish  to  consider 
is  the  fact  that  the  stage-average  Reynolds  Numbers  are  used  as  the  bulk 
Reynolds  Numbers,  rather  than  the  stage-exit  values  which  would  be 
consistent  with  the  other  practices  in  the  analysis.  Again,  this  error 
would  be  relatively  small,  particularly  for  short  stage  lengths,  but  for 
longer  stages  it  might  need  to  be  considered. 


III. 6  Control  of  GFP  "Iteration”  Input  Options 

There  are  fifteen  distinct  input  options,  thirteen  of  which  are  numbered. 
They  are  numbered  in  the  order  of  decreasing  priority.  When  redundant 
data  are  loaded  (more  than  needed  for  any  single  option)  the  highest 
priority  option  will  actually  be  carried  out. 

The  table  below  lists  the  input  and  calculated  variables  for  the  thirteen 
numbered  options . 


Option  . 
No. 

' 

Input 

Variables 

Calculated  Variables 

1 

PTIN 

TTIN 

TWMAX 

QT0T 

PSEX 

PTEX 

W 

TTEX 

2 

tt 

tt 

tt 

TTEX 

TT 

tt 

tt 

QTCZ5T 

3 

Tt 

?  " 

PSEX 

QT0T 

TWMAX 

tt 

ft 

TTEX 

4 

tt 

If 

tt 

TTEX 

tt 

tt 

If 

QT0T 

5 

tt 

tt 

PTEX 

QT0T 

PSEX 

TWMAX 

tt 

TTEX 

6 

Jt 

tt 

11 

TTEX 

tt 

tt 

tt 

QT0T 

7 

PSEX 

tt 

W 

QT0T 

PTIN 

PTEX 

TWMAX 

TIED 

n 

O 

tt 

tt 

ti 

TTEX  I 

tt 

tt 

tt 

QT0T 

n 

> 

PTEX 

1 1 

It 

QTC5T  S 

PSEX 

PTIN 

ft 

TTEX 

10 

tt 

It 

tt 

TTEX  \ 

It 

tt 

Tt 

QT0T 

n 

PTIN 

tt 

tt 

QT0T  ! 

tt 

FEEX 

ft 

v.TTEX 

12 

tt 

tt 

11 

TTEX  : 

t! 

tt 

tt 

QT0T 

13 

It 

It 

TTEX 

QT0T 

ft 

tt 

11 

W 

The  two  remaining  options  are  simply  an  isothermal  pressure  drop  calculation 
or  a  heat  transfer  calculation  without  any  pressure  drop  analysis. 
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Options  1  thru  10  are  the  so-called  "iteration  options".  In  1  thru  6, 
the  mass  flow  is  the  independent  variable  while  the  max-average 
surface  temperature,  exit  static  pressure  and  exit  total  pressure  are, 
successively,  the  dependent  -variables .  The  inlet  total  pressure  is  the 
independent  variable  for  options  7  thru  10  and,  first,  exit  static  pressure, 
then  exit  total  pressure  is  the  dependent  variable .  Note  also  that  all 
odd-Humbered  iteration  options  have  the  heat  release  specified  and  hence 
the  exit  temperature  must  be  calculated  before  the  compressible-  loss 
analysis  can  be  applied. 

The  first  step  in  controlling  the  generalized  set  of  iterations  involved 
in  the  GFP  program  was  to  "group"-  nominally  non-subscripted  (single-entry) 
variables  into  tables  for  convenience  in  manipulation.  This  is  done  for 
the  major  flow  and  temperature  variables  shown  in  Table  1  under  the  mnemonic 
"BSI".  The  individual  items  included  in  the  BSI- table  are  shown  below: 

\ 

BSl(i)  Individual  Entry  Mnemonic 

i  1  PTIN 

2  TTIN 

3  HEX 

4  TWMAX 

5  PSEX 

6  PTEX 

7  W 

8  QT0T 

9  PSX&PI  (PSEX/PTIN) 

10  .  PTX0PI  (PTEX/PTIN) 

11  TEX0TI  (TTEX/TTIN) 


It  is  pertinent  to  note  at  this  point  that  a  distinction  is  made  intthe  GFP 
program  between  "input"  data  and  "calculation"  data.  Specifically,  "input" 
data  refer  to  those  data  which  are  actually  loaded  into  the  program  by  the 
user.  Such  data  are,  virtually  without  exception,  left  intact  and  unmodified 
by  the  program.  On  the  other  hand,  "calculation"  data  may  refer  to  input 
data  which  have  been  transferred  into  other  locations  than  those  in  which 
they  were  originally  loaded  or  to  output  data  from  the  calculations .  The 
advantage  of  this  scheme  is  that  the  user  need  not  reload  data  for  subse¬ 
quent  cases  if  the  particular  values  are  not  being  changed,  ^ince  the  data 
have  not  been  "used-up".  Furthermore,  the  original  data  are  also  available 
for  later  logical  control  purposes . 

The  most  important  example  of  this  practice  for  the  present  purposes  is 
the  BS0  table.  This  table  has  entry  points  similar  to  those  in  the  BSI 
table .  It  is  initially  filled  from  the  contents  of  the  BSI  table  and 
then  the  remainder  of  the  table  is  filled  by  the  result  of  the  option 
calculations . 

The  option  number,  which  has  the  mnemonic  K0PT,  is  chosen  by  systematic 
inspection  of  the  BSI  table  to  determine  what  non-zero  values  are  present. 

This  is  accomplished  by  the  double-subscripted  variable  K0PSET  which  is 
dimensioned  3  x  13 •  This  table  is  filled  with  fixed  point  constants  (integers) 
which  are  used  as  subscripts  in  an  inspection  of  the  BSI  table. 
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K0PSET(i,j) 


i  j 

=  1 

2 

3 

j  =1 

1 

~X~ 

8 

2  ■ 

1 

4 

3 

3 

1 

5 

8 

4 

1 

5 

3 

5 

1 

6 

8 

6 

1 

6 

3 

7 

7 

5 

8 

8 

7 

5 

3 

9 

7 

6 

8 

10 

7 

■6 

3 

11 

7 

1 

8 

12 

7 

1 

3 

13 

1 

8 

3 

All  options  require  TTIN,  hence  it  is  inspected  for  separately.  As  soon 
as  all  three  subscript  entries  are  found  to  be  non-zero  forborne  j,  K0PT 
is  set  equal  to  that  j .  (The  KOPSET  table  and  determination  of  K0PT  are 
found  in  the  CONSIS  subroutine.) 

The  K0N0PT  table,  dimensioned  2  x  10,  is  used  to  retrieve  .the  dependent 
and  independent  variables  from  the  BS0  table .  (This  table  is  set-  up  in 
the  INITAL  subroutine,  but  functions  in  the  ITRC0N  subroutine.)  Its 
contents  are  as  follows: 

K0N0PT(i,d) 

j  =  l  2  3  >  5  6  7  8  9  10  (K0PT) 

i  s  l  |  4  4  5  6  6 5 5 6 6  (dependent  variable) 

2777777III  1  (independent  variable) 


The  method  by  which  the  calculation  options  are  carried  out  utilizing 
the  numerical  root-finding  technique  previously  described  is  shown  in 
detail  in  Figure  2  which  gives  the  logical  flow  diagram  for  the  ITRC0N 
subroutine . 


HI. 7  Calculation  of  Hydraulic  Diameter  and  Free  Flow  Area 

There  are  five  cross  section  options  available  in  the  GFP  program.  The 
first  of  these  is  general,  in  that  the  user  loads  both  the  hydraulic 
diameter  and  the  free  flow  area  for  each  stage.  The  four  remaining  options 
refer  to  definite  cross-sectional  shapes  wherein  the  program  will  actually 
take  the  geometrical  data  and  calculate  the  hydraulic  diameter  and  free 
flow  area.  In  the  description  of  each  option,  the  mnemonic  is  given  whose 
value  must  be  greater  than  zero  for  the  program  to  recognize  that  the 
particular  cross  section  is  being  used.  These  mnemonics  .are  listed  in  the 
order  of  priority;  the  first  non- zero  one  encountered  is  the  only  one  the 
program  will  recognize . 
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l)  Circular  (R$JND). 


%  -  %  t>L  *  (25) 

2)  Rectangular  (RECTNG) . 

/(+£  ~  Ivj  ^  (26a) 
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3)  Elliptical  (ELLIPS). 


Dh«  WE  -p==k?~~~~ 
h  rr  'yD--+DjJ 


(2  6b) 


(27a) 

(27b) 


4)  Concentric  annuli (RINGS ) .  The  number  of  rings  here  is  actually  the 
number  of  full-thickness  rings  plus  two  half-thickness' rings .  The 
two  half -rings  lie  adjacent  to  the  I.D.  and  O.D.  and  within  the 
region  between  these  diameters . 

j-\  icy  ""  '&!/'/ ail  h  “  4  .•/:/ .7' 

^  ^  (28a) 


("4 


) 


(28b) 


See  Item  3  in  the  User  Instruction  for  a  description  of  distribution 
of  stagewise  geometry  values . 


Ill , 8  Pressure  Losses  Resulting  From  Sudden  Expansions  and  Contractions 


The  mnemonic  AUT0LS  signals  the  program  that  expansion  or  contraction  losses 
are  t.o  be  calculated  whenever  a  flow  area  change  is  encountered.  These 
calculations  are  carried  out  in  the  subroutine  L$SS  using  the  incompressible 
Ions  equations  described  below.  The  equations  were  taken  from  an  internal 
General  Electric  report,  but  the  results  are  similar  to  those  described 
in  reference  3 . 


In  it-  equations  below,  the  subscript  1  refers  to  upstream  conditions  while 
2  refers  to  downstream.  The  dynamic  pressure  is  denoted  by  q  and  the  loss 
coefficient  by  C^ . 


1) 


Contraction  loss- 


(29) 


19 


Equation  (31a)  is  employed  by  GFP  for  the  same  reason  mentioned  above. 


III. 9  Logical  Control  For  Parametric  Studies 

Parametric  cases  are  those  in  which  one  or  more  of  the  flow  and  temperature 
variables  are  systematically  varied  over  an  incremental  range  of  values . 

There  is  no  limit  on  how  many  parametric  "points"  can  be  generated  by  a  single 
record  of  input  data.  All  successful  parametric  calculations  are  auto¬ 
matically  printed  out  in  the  summary  tables. 

As  would  be  deduced  from  the  previous  discussion  of  the  logic  used  to  control 
the  iterations ,  parametric  control  is  also  accomplished  by  proper  grouping 
of  variables  and  by  a  table  filled  with  suitable  subscripts . 

All  eight  of  the  so-called  flow  and  temperature  variables  can  be  incremented 
in  this  fashion,  although  obviously  only  those  occurring  as  -input  data  for 
the  current  input  option  will  be  active.  The  increment  mnemonics  themselves 
are  designated  by  prefixing  the  letter  "D"  to  the  regular  input  mnemonics. 

The  mnemonics  generated  by  prefixing  either  "N0"  or  "N"  to  the  regular  input 
mnemonics  are  used  to  signal  the  number  of  times  the  original  value  of  the 
variable  is  to  be  incremented  plus  one . 

Increment  mnemonics  are  grouped  in  the  tables  DPAEAM  (input)  and  DPARMR 
(calculation).  Increment  counters  are  grouped  in  the  tables  KPARAM  (input), 
and  KPARMR  (calculation).  All  of  these  tables  are  ordered  to  correspond 
to  the  BS0  table  so  that  a  single  subscript  supplies  access  to  corresponding 
quantities  in  all  of  the  tables. 

The  actual  stepping  of  the  running  counters,  resetting  counters,  and  incre¬ 
menting  and  restoring  the  variables  themselves  are  accomplished  with  the 
K0KPAR  table  which  is  dimensioned  4  x  13  (4  variables  for  each  option) 
and  filled  with  fixed  point  constants.  Its  contents  are 

K0NPAR(i, j ) 

j=12345678-9  10  11  12  13 

1  =  1838383838  3  8  3  8 

2445566777  7  7  7  3 

3222222552  2  2  2  2 

4111111226  6  l  1  1  ’ 

The  detailed  program  logic  for  parametric  studies  is  shown  in  the  logical 
flow  chart  in  Figure  5. 
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III. 10  Entrance  -  Length  Effects 


The  relationships  used  to  calculate  the  entrance  length  effects  (that  is, 
non-fully  developed  flow)  on  heat  transfer  and  wall  friction  were 
developed  by  R.  T.  Lancet  and,  as  was  the  case  for  the  transitional  heat 
transfer  relationships  previously  described,  they  were  originally  presented 
in  an  internal  General  Electric  Company  report.  The  relationships  will  be 
presented  below  without  discussion,  although  the  sources  of  data  originally 
considered  by  Lancet  are  referenced. 


The  Nusselt  Numbers  calculated  with  equation  (17)  are  fully-developed 
values  and  are  designated  by  the  <*>  -  subscript.  Similarly,  fully 
developed  friction  factors  are  computed  from  user-supplied  correlations 
of  the  form 


for  both  the  laminar  and  turbulent  regimes ,  Transition  for  frictional 
purposes  is  assumed  to  occur  sharply  at  a  Reynolds  Number  which  can  be 
designated  by  the  user  (the  program  will  assume  2300  if  no  value  is  loaded 
as  input  data ) . 


Entrance  length  effects  on  laminar  heat  transfer  (N^e  ^  Npeo)  are  computed 
from  the  equation  (reference  3) 

^  --[%i  /  «  f  fa  /T)]  *  (33) 

Entrance  length  effects  on  turbulent  (Npe^  %el)  hea'k  transfer  are 
computed  from  the  equation  (reference  1) 


<v 


or  from 


1 


(3^a) 


(34b) 


Entrance  length  effects  on  laminar  friction  factor  (Nrs  —  -%eT^  are 
computed  from 


4-  0+  P,  %  (  b  hfr)] 

For  turbulent  friction  factor  (N^e  Npgj),  the  entrance  length  effects 
are  computed  from 

7  (36) 

Both  equation  (35)  aud  (3 6)  are  based  on  data  and  discussions  in  /> 

reference  4.  Lancet  recommended  values  of. 0.005  for  ^  x  and  10.0  for 
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LOGICAL  ORGANIZATION  OF  THE  GFP  PROGRAM 


The  sequence  of  operations  in  the  GFP  program,  apart  from  initialization, 
is  as  follows: 

1.  Load  input  data  (SR  READIN) 

2.  Process  input  data  (SR  DATPR0) 

3.  Check  input  data  for  consistency  and  adequacy  (SR  C0NSIS) 

4.  Print  out  input  data  (SR  IKPPRT) 

5.  Carry  out  calculations  if  no  input  errors  found  (SR  ITRC0N ) 

6.  Print  out  results  of  calculations  (SR  0UTPUT  and/or  SUMPRT) 

7 .  Reset  data  fields  for  next  calculation .  .  Return  to  1 ) . 

Virtually  all  data  are  in'  C0MM0N  storage  and  are  "fixed"  in  C$MM#T  hy 
means  of  EQUIVALENCE  statements.  This  is  very  convenient  when  it  is 
desired  to  rearrange  the  storage  map.  Since  large  blocks  of  mnemonics 
can  be  relocated  en  masse  without  revising  long  lists  attached  to  C0MM0N 
statements.  In  addition,  it  provides  complete  freedom  of  action  in  the 
use  of  further  EQUIVALENCE  statements . 


V 


USER  INSTRUCTIONS 


V.l 


Instructions 


Introduction 


The  General  flow  Passage  computer  program  (ANP  66 3,  for  the  IBM  7090) 
calculates  the  subsonic  compressible  pressure  losses  and  associated 
temperature  levels  for  a  single  flow  passage  of  arbitrary  geometry  filled 
with  any  one  of  a  variety  of  flowing  gases.  The  program  contains  many 
features  which  enable  it  to  satisfy  most  reasonable  design  restraints 
without  the  necessity  for  cross-plotting  of  results  and  which  enable 
the  user  to  avoid  the  need  for  redundant  entry  of  data. 

General  Flow  Passage  is  intended  as  a  complete  replacement  for  the 
Modified  Off-Design  program  (ANP  443)  which  exists  only  for  the  IBM  70k 
and  is  a  much  more  primitive  program. 

Definitions 

Flow  passage  -  Any  series  or  connected  group  of  flow  elements,  either 

components  and/or  enclosed  flow  channels,  all  characterized 
by  carrying  the  same  mass  flow. 

Stage  -  Any  individual  element  of  a  flow  passage .  Usually,  a  stage 

refers  to  an  incremental  length  along  an  enclosed  flow  channel, 
but  zero  length  stages  can  be  used  to  simulate  arbitrary  flow 
elements,  such  as  valves  and  orifices,  but  means  of  user-specified 
total  pressure  loss  coefficients. 

Case  -  A  complete  pressure  loss  and  heat  transfer  calculation  for  all 
stages  of  a  flow  passage. 

Record  of  input  data  -  AH  data  included  between  cards  bearing  end-of- 

record  punches .  Except  for  same  special  option 
control  variables,  should  normally  include  all 
original  or  changed  data  needed  by  the  program  to 
carry  out  the  desired  type  of  calculation. 

End-of -record  punch  -  A  column  1  punch  which  is  either  an  3  (equal  -  sign; 

8-5  punch)  or  an  (arrow  or  dash;  8-4  punch). 

Summary  of  Features 

The  brief  descriptions  below  are  intended  only  to  indicate  the  capability 
of  the  General  Flow  Passage  program.  Further  explanations  will  be  given 
later  for  those  features  which  are  not  self-evident  from  the  input  forms. 

Input/Output  Units  Normally  inches  (direct  and  derived  quantities)  and 
degrees  F.  Optionally,  feet  and/or  degrees  R  can  be  separately  used  in 
input  and/or  output. 

Geometry- Length  The  passage  can  be  subdivided  into  as  many  as  100  incre- 
ments  ( ie , "stages " )  of  arbitrary  length.  Zero  lengths  are  permissible 
to  permit  simulation  of  valves,  orifices,  etc.  Stage  lengths  can  be 
imputted  by  individual  lengths  or  by  fractional  stations  of  a  total  length. 
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Geometry-Cross  Section  Five  options  exist: 


1.  General;  user  supplies  hydraulic  diameter  and  free  flow  area. 

2.  Round;  user  supplies  diameter. 

3.  Rectangular;  user  supplies  height  and  vidth. 

4.  Elliptical;  user  supplies  major  and  minor  axes. 

5.  Concentric  rings;  user  supplies  inner  diameter,  auter  diameter, 
thickness  of  rings,  and  number  of  rings.  (Inner  and  outer  rings 
are  assumed  to  be  of  half-thickness.) 

Flov  and  Temperature  Input  There  are  fifteen  options  available  which 
are  automatically  selected  by  the  program  on  the  basis  of  the  input 
data.  These  will  be  discussed  in  detail  in  a  later  section. 

Partial  Printout  It  is  possible  to  have  only  flow  and  temperature  input 
and  output  printed  out  for  each  case  or  to  completely  suppress  the 
input  printout. 

Summary  Printout  The  program  builds  up  a  table  of  flow  and  temperature 
output  and  will  print  out  the  table  upon  command  or  when  the  program  has 
carried  out  calculations  for  100  cases. 

Interstage  Losses  The  user  may  specify  interstage  loss  coefficients  or 
have  the  program  calculate  incompressible  loss  coefficients  (with  or 
without  modifying  multipliers)  when  flow  area  changes  occur. 

Distribution  of  Repetitive  Stagewise  Input  A  method  is  provided  for 
sequential  distribution  of  a  repetitive  variable  so  that  the  user  does 
not  have  to  have  long  strings  of  identical  numbers  on  the  input  forms. 

T/tminar,  Turbulent,  and  Transitional  Flow  An  abrupt  transition  is  assumed 
for  pressure  drop  (ie,  friction  factor)  at  a  Reynolds  Number  which  can 
be  designated  by  the  user.  For  heat  transfer,  transition  is  assumed  to 
occur  over  a  Reynolds  Number  range  which  can  also  be  designated  by  the 
user.  Heat  transfer  coefficient  correlations  can  be  based  on  bulk  or 
film  temperatures  of  the  flowing  gas. 

Entrance  Length  Effects  The  program  user  can  have  non- fully-developed 
flow  simulated  by  prescribed  relationships  which  will  be  described  in 
the  analysis. 

Parametric  Studies  An  indefinitely  large  number  of  cases  can  be  generated 
from  a  single  record  of  input  data  to  facilitate  parametric  studies  which 
require  systematic  variation  of  flow  and  temperature  input  parameters. 

Built-In  Data  Checking  The  program  has  a  rather  elaborate  set  of  checks 
to  insure  that  both  sufficient  and  self-consistent  input  data  have 
been  provided.  If  the  program  finds  that  inadequate  input  data  were 
provided,  it  will  ordinarily  not  carry  out  any  more  calculations  (to 
conserve  computer  time)  and  will  merely  check  the  remaining  input  data 
to  insure  that  there  are  no  DIP- type  data  which  would  cause  subsequent 
data  loading  errors. 
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An  option  exists  (variable  ALLRUN,  form  7  )  which  will  cause  the 
program  to  carry  out  calculations  whenever  it  finds  adequate  data  have 
been  loaded.  The  user  must  recognize  that,  if  data  are  collected 
piecemeal  in  this  fashion  from  various  input  records,  the  case  for  which 
calculations  are  finally  carried  out  may  bear  no  resemblance  to  anything 
the  user  had  in  mind.  (If  the  program  once  finds  a  DIP- type  input 
error,  for  instance,  none  of  the  remaining  data  in  that  record  will  be 
loaded  into  the  program.) 

Some  Detailed  Instructions 


1.  Flow  and  Temperature  Input 

As  was  noted  in  the  introductory  remarks,  there  are  15  distinct  input 
options  available  in  terms  of  which  variables  are  inputted  and  which 
are  calculated  by  the  program.  In  order  to  describe  these  options 
systematically,  the  following  list  of  input/output  variables  will 
be  used: 

PTIN  ^  Inlet  total  pressure 
TTIN  Inlet  total  temperature 

W  Passage  mass  flow 

TWMAX  Maximum  stage-exit  surface  temperature. 

TTEX  Bulk  exit  total  temperature. 

PTE5&  Exit  total  pressure 

PSEX  Passage  exit  face  static  pressure 

QT0T  Heat  addition  to  gas  in  passage  (may  be  negative) 

The  thirteen  major  input  options  are  tabulated  below. 


Option 

No.  Input  Variables  \  Calculated  Variables 


1 

PTIN 

TTHf 

TWMAX 

qtgSt  ! 

PSEX 

PTEX 

w 

TTEX 

2 

It 

tt 

tt 

TTEX 

rt 

tl 

tl 

QTC*T 

5 

ft 

It 

PSEX 

QT0T 

;  TWMAX 

tl 

tt 

TTEX 

4 

ti 

tf 

tt 

TTEX 

tt 

tt 

it 

QT<2T 

5 

it 

tt 

PTEX 

QT0T 

PSEX 

TWMAX 

tt 

TTEX 

6 

it 

It 

tt  '{ 

TTEX 

tf 

it 

tt 

QT #T 

7 

PSEX 

II 

W 

QT0T 

PTIN 

PTEX 

TWMAX 

TTEX 

8 

It 

It 

tt 

TTEX 

tl 

tt 

tt 

QT0T 

9 

PEEK 

If 

It 

QT0T 

PSEX 

PTIN 

tt 

TTEX 

10 

rt 

VI 

tt 

TTEX 

tf 

tf 

tt 

QT#T 

11 

PTIN 

tt 

ft 

0T#r 

ft 

PTEX 

tt 

TTEX 

12 

it 

It 

TTEX 

tt 

tt 

tt 

QT0T 

13 

!  tt 

tt 

TTEX 

QTtfT 

If 

TT 

Tf 

W 

The  option  numbers  above  describe  the  descending  order  of  priority.  In 
the  event  that  the  user  has  supplied  more  data  than  are  needed  for  any 
single  option,  the  program  will  select  the  highest  priority  option  for 
which  sufficient  data  are  present. 
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Two  more  relatively  trivial  options  are  provided; 

#14  -  Supply  PTIN,  TTIN,  and  W  and  also  a  value  of  TTEX  identical  to  that 
supplied  for  TTIN.  The  program  will  carry  out  an  isothermal 
pressure  drop  calculation. 

#15  -  Supply  PTIN,  WIN,  W,  and  TTEX  and  also  a  value  of  FTEX  equal  to 
the  value  supplied  for  PTIN.  The  program  will  carry  out  a  heat 
transfer  calculation  without  any  pressure  drop  calculation. 

2.  Parametric  Study  Calculations  from  a  Single  Record  of  Input  Data 

It  is  possible  to  generate  an  indefinitely  large  number  of  cases  from 
a  single  record  of  input  data  when  it  is  desired  to  systematically  vary 
the  flow  and/or  temperature  parameters  for  a  passage  of  fixed  geometry. 

Two  additional  pieces  of  data  must  be  provided  for  each  parameter  to 
be  varied;  1)  the  number  of  times  plus  one  that  the  starting  value  is 
to  be  incremented,  and  2)  the  magnitude  and  sign  of  the  increment. 

The  variable  names  to  be  used  are  shown  on  input  form  £  .  If  the  user 
neglects  to  load  a  non-zero  increment  for  a  variable,  the  program  will 
conserve  time  by  not  uselessly  incrementing  the  variable  in  question. 

The  order  of  variable  incrementing  is  that  implied  in  the  variable 
listing  previously  given  for  option  1,  proceeding  from  right  to  left. 

For  example,  the  order  of  incrementing  for  option  7  would  be  W,  PSEX, 

QT0T,  and  then  TTIN. 

3*  Distribution  of  Repetitive  Stagewise  Input 

It  frequently  occurs  that  a  given  piece  of  stagewise  data,  such  as  stage 
length,  will  be  repeated  for  many  successive  stages.  To  avoid  the 
monotony  (and  added  chance  for  error)  which  would  arise  from  the  necessity 
of  writing  and  having  Keypunched  such  a  series  of  identical  numbers, 
virtually  all  tabular  input  can  be  distributed  over  successive  stages 
by  means  of  what  are  called  "distribution  variables".  These  are  labeled 
on  the  input  forms  and  include  KEEN,  NDH,  NAFF,  etc, 

Useage  of  the  distribution  variables  is  accomplished  by  writing  pairs 
of  numbers  after  the  appropriate  variable.  The  GFP  program  (using  the 
subroutine  DSTRBl)  will  take  whatever  value  is  found  in  the  stage 
designated  by  the  first  number  of  each  pair  and  distribute  that  value 
into  all  successive  stages  up  to  and  including  the  one  designated  by  the 
second  number  of  each  pair.  Examples  of  this  can  be  found  in  the  input 
for  the  sample  problems  in  Section  VI. 

All  tabular  input  which  can  be  distributed  in  this  fashion  appears  on 
the  input  forms  with  the  name  followed  by  an  equals-sign  (=)■.  The  equals 
sign  is  intended  to  aid  in  "spotting"  values  into  particular  stage 
locations.  When  "n  a"  appears  after  the  name  of  a  variable  (where  n  is 
an  integer),  it  signifies  that  the  next  value  is  to  go  into  the  n-th 
stage.  When  "n  a"  appears  after  a  value  rather  than  after  the  name  of 
a  variable,  it  signifies  that  n  stages  are'  to  be  skipped  before  inserting 
the  next  value  in  a  stage. 
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Form  1  of  7 


Input  Data  Forms  for  the  General  Flow  Passage 
Computer  Program  (ANP  663) 


Analyst  _ Phone  _ _  Date  ___________ 

Problem  ____________________________________________  Page  _ _  of _ 

See  "General  Flow  Passage  Computer  Program  (ANP  663)"  by  S.  C.  Skirvin,  GE- 
ANFD,  Report  APEX  664,  8/6l  (U)  for  analyses,  instruction,  and  error  printout 
code  . 


Note:  All  variables  assumed  zero  by  program  unless  otherwise  noted.  All 
controls  inoperative  unless  values  greater  than  zero  loaded. 


Optional  Identification 
1  2 

Punch  on 
one  card 


2  HEADER, 10,  (!' 

Ji 

a* _ _ _ — - — - 

1 

12  Up  to  59  characters  ^eluding  blanks 


CASE, 


,CASTBP, 


Case  no.  (l) 
Gas  Selector 


3  GAS, 


Increment  between  case  numbers  (1) 
(Assumes  air) 


1  for  air,  4  for  %,  6  for  He,  9  for  Ife  (presently  available) 
Input/Output  Unit  Controls 


FT  IN, 


,  RNKIN, 


,FT0UT, 


,RNK0UT, 


Feet  input  °R  input 


Feet  output  °R  output 


Printout  Controls 


PRTALL, 

,N0HJPT, 

,N0G£0M, 

,PARPRT, 

,N0PRT,  , 

Print  all  stage- 
wise  output 

Suppress  input 
data  printout 

Suppress  geomet¬ 
rical  input 
printout 

Suppress  all 
stagewise  Input 
data  and  output 

Suppress  all 
normal  print¬ 
out  (but 

printout  permits  summary 

,  printout) 

HEAT  TRANSFER  AND  FRICTION  CHARACTERISTICS 

Heat  Transfer  Correlations  (must  have  at  least  coefficients) 

(laminar ) 

(Turbulent ) 


3 

C0FHLM, 

,EXHPLM, 

,EXHRLM, 

> 

C0FHTB, 

,EXHPTB, 

,EXHRTB, 

> 

Coefficient 


Prandtl  No.  expon.  Reynolds  No.  Expon. 
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Form  2  of  7 


Input  Data  Forms  for  the  General  Flow  Passage 
Computer  Program  (ARP  663) 


Analyst 

Problem 


Phone 


Date 


of 


Correlation  Reference  Temperatures 
1  2 


LMBULK, 


jTBBULK, 


If  >  0,  use  bulk  Instead  of  film  ten  perature 


Laminar  Turbulent 

Friction  Factor  Correlations  (must  be  present) 


3  C0FFLM, 


,EXPFLM, 


(Laminar) 


3  [  CflFFTB, 


yEXFFTB, 


71  (Turbulent ) 


Coefficient  Reynolds  Noo  Expon . 

Transition  Reynolds  Numbers 


31  TRANHL, 


,TRANHU, 


,TRANSF, 


Upper  laminar 
limit  (2000) 


Lover  turbulent  Abrupt  frictional 
limit  (8000)  transition  (23OO) 


Transition  range  for  convection 
Entrance  Length  Effects  (optional) 

If  > 0,  signals  entrance  length  effects  to  be  calculated. 
Coefficients  for  friction  effects 


ENTKRC, 


3  BEHAI, 


,EETA2, 


Laminar  Turbulent 

Flov  (need  not  be  provided  for  options  1  thru  6  or  for  13) 

(Value  loaded  for  options  1  thru  6  will  be  used  as  first  guess) 
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Temperatures  (only  TUN  must  always  be  loaded) 


3  TTXH, 


•/EEEX, 


,TEX0TI, 


,TWMAX, 


Inlet  total 


4  |  MAXTMP, 


Exit  total  TTEX/TTIN  Msuc-ave  surface  temp. 

If  >  0,  TWMAX  will  be  attained'  at  that  stage. 


Heat  Release  (Use  QT^T  alone  or  Q0QBAR  and  QBAR) 


3  Qtm  , 


,Q0qBAR, 


,QBAR, 


Total  heat 
release 


qtot/qbar 


Reference  heat  release 
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Form  3  of  7 


Input  Data  Forms  for  the  General  Flow  Passage 
Computer  Program  (ANP  663) 


Analyst  _____ __________ _____________________ _  Phone  _____________  Date  _ 

Problem _ _ Page _ of 


Pressures  (PTIN  must  be  given  except  for  options  6  thru  10) 
1  2 


5  PTIN, 


,FTEX, 


,PTIN, 


Inlet  total  Exit  total  Exit  static 


Exit  Pressure  Ratio  (Cannot  be  used  with  options  6  thru  10) 


[  PTX0PI, 

,PSXj>Pi; 

9 

TTB^T-TIhS 

GEOMETRY 

pric  v-.^PT X  M 

E 

STAGES, 

,  (max  of  100) 

No.  of  stages 


Stage  Lengths 


Either 


H 

LENGTH,  =, 

■ 

Physical  lengths 
and  (optional) 


a 

^ i 

■ 

Stage wise  distribution  variable  for  LENGTH  table 


or 


3  T0TLEN, 


Total  passage  length 


and 


[ii 

Xfa, 

■ 

Fraction  of  total  length  to  end  of  each  stage  (ie,  last  value  must  be  one) 


Cross  Section 


k  R0UND, 


,RECTNG, 


,ELLIPS,  ,RINGS, 


Round  Rectangular  Elliptical  Concentric  rings 

(Maximum  of  one  non- zero  value  above;  general  cross  section  if  all  zero.) 
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Form  4  of  7 


Analyst 


Input  Data  Forms  for  the  General  Flow  Passage 
Computer  Program  (AMP  663) 

Phone 


Problem 


If  general  or  round  load  DH (hydraulic  dlam. );  if  rectangular  load  WIDTH; 
if  elliptical  load  ELPMAJ (major  axis);  if  concentric  rings  load  D0UTER 
(outer  diem.) 

4|  NDH,  £)  i  "  T®  '  :  ~ 


Stage  vise  distribution  variable  for  above  table 


If  general  load  AFF  (free  flow  area);  if  rectangular  load  HEIGHT;  if  elliptical 
load  ELPMJN  (minor  axis);  if  concentric  rings  load  DINNER  (inner  diam.) 


Stage  vise  distribution  variable  to  be  used  only  for  AFF  (general  cross  section) 


If  concentric  rings*  must  also  have 


Ring  thickness 


No.  of  rings 

Entrance  and  Exit  Loss.  Coefficients  (optional 
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Form  5  of  7 

Input  Data  Forms  for  the  General  Flow  Passage 
Computer  Program  (ANP  665) 

Analyst  _ _ _ ______ _ __ _ _ ___ _ _ Phone _ Date _ _ 

Problem  __________________ _ _  _ _ _ _ Page _  of 


1  2 


Arbitrary  Interstage  Losses  (optional) 


Power  Profile  (must  be  supplied  unless  running  isothermal  case  with  TTEX  -  TTIN) 
either 


3 

FHISUM, 

■ 

Fraction  of  total  power  released  by  trailing  edge  of  each  stage  (le,  integrated) 
and 


a 

PHIEX, 

Ratio  of  trailing  edge  to  stage  average  power  for  each  stage 
or  (non- integrated) 


3 

~fo>  : 

■ 

Relative  power  level  at  stage  leading  edges « 

and 


3 

pi, 

■ 

Similar  to  PO,  but  for  midpoints  of  stages 


33 


Form  6  of  7 


Input  Bata  Forms  for  the  General  Flow  Passage 
Computer  Program  (AMP  663) 

Analyst _ '  Phone  _________  Date 

Problem _ _ _ _ 


and 
1  2 


y 

P2> 

Similar  to  PO,  but  stage  trailing  edges 


Parametric  Setup 

Mo.  of  times  to  be  incremented  plus  one 


M 

N0PTIN, 

,N$TTIN, 

,H#TWMX, 

,N0QT0T, 

9 

IQ 

N0PSEX, 

,N0FTEX, 

,Hj pH, 

,N0TTEX, 

9 

The  letters  "N/fl"  have  been  added  to  base  variables. 
Size  of  increments 


‘3 

DPTIH, 

,DTTIN,  ,DTWMAX,  ,D<3T0Tj 

9 

3 

DPSEX, 

,DPTEX,  ,DW,  ,  DTTEX, 

9 

The  letter 

"D"  has  been  added  to  the  base  variables. 

Heat  Transfer  Coefficient  and  Friction  Factor  Stage vise  Multipliers  (all 
initialized  equal  to  one) 


[3. 

HMULT,  =  , 

v — - - 

Beat  transfer  coefficient  multipliers 

□ 

HHMULT,  (|>  ,  ,  (X)  . 

a . . _ , 

Stage  vise  distribution  variable  for  HMULT  table 

m 

1] 

FMULT,  *, 

- 

+ — 

Friction  factor  multipliers 

’  NFMULT,  (1)  j  ,  (i) 

i _ 

;  ...... 

Stage  wise  distribution  variable  for  EMULT  table. 
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Form  7  of  7 


Input  Data  Forms  for  the  General  Flow  Passage 
Computer  Program  (ANP  663) 


Analyst 


Phone 


Date 


Problem 


Page  of 


Accuracy  Criteria  (fractional  unless  otherwise  noted) 
1  2 


3  f  ACCMN0, 


,ACCPRS7 


,ACCTMP, 


Mach  No. 

(0.0001 

Counter  Limits 


Pressure 

(0.0001) 


Temperature 

(0.049  deg) 


LIMERY, 


,LIMCHK, 


,LMCHT0, 


,LIMPRS, 


Tries  to  satisfy 
option  iteration 
(15) 


Choke  ad j .  for 
single  value  of 
independent  vari¬ 
able  (10 


Total  no.  of 
choke  adj.  for 
a  case  ,(30) 


Max.  tries  for  a  stage 
exit  pressure  or  exit 
surface  temp.  (20) 


Miscellaneous 

Max .  Mach  No.  choke  remedial  tries  to  exceed  (0.5) 

If  ^  0,  program  will  calculate  anytime  it  finds  sufficient 
data  regardless  of  previous  errors. 


n\ 

MAXMN0,  , 

LS 

ALLRUN,  , 

NEWSET, 


> 


tables  with  QBAR  - 


Output  from  this  case  will  be  placed  into  internal  input 
QTffcP-  (Resets  to  zero) 


End  of  Record  (must  be  last  card  of  data  record) 


Punch  this 


Summary  Printout 

c— 3a«— on'  ■  rlfng—iMXMl 


s  PRTSUM,!, 


(So  other  action  taken  when  this  piece  of  data  is  loaded; 
causes  summary  printout  of  all  previous  successful  cases 
during  run .  Resets  to  zero . ) 
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V.2  Error  Code  Printout 

TYTEjLOC  Mature  of  Error 

where  1  n  100  s  stage  number 
n,l  no  DH  when  LENGTH  0 

n,2  no  AFF  when  LENGTH  0 

n,3  no  AFF  when  LENGTH=0 

99,99  Reentry  1st  statement  of  main  program  without  sense  light  1  on 

101.1  Missing  data;  no  PIN 

101.2  Missing  data;  no  TIN 

102.1  Missing  data;  no  C0FFLM 

2  Missing  data;  no  EXPFLM 

3  Missing  data;  no  C0FFTB 

4  Missing  data;  no  EXFFTB 

103.1  Missing  data;  no  C0FHLM 

4  Missing  data;  no  COFH33B 

104. 104  Neither  pressure  drop  nor  heat  transfer  requested 

105.105  No  entrance  length  effect  coefficients;  will  not  stop 
program  (EETAl) 

106.106  No  BESTA2 

108,n  X0L(n)  less  than  X0Lr(n-l) 

108,0  No  X0L  table  when  T0ELEN  >0 

109,0  X0L  f  1  for  last  stage 

150.1  Too  little  data;  needed  both  QT0T  and  TEX 

151.1  No  power  profile  with  non- isothermal  calculation 

152,152  More  than  100  stages  specified..  Prevents  all  other 
consistency  checking. 

160,  Choke  troubles  leading  to  convergence  failure 

1  Not  iterating  when  choke  encountered 

2  Specified  conditions'  resulted  in  irreniovable  chokes 

3  Total  no.  of  choke  relief  attempts  exceeded  limit 

4  Too  many  tries  for  a  single -choke  relief 

170.1  Could  not  satisfy  basic  iteration  in  specified  no.  of  tiles 

2  Unable  to  converge  with  two  reductions  in  pressure  tolerance 

fraction 

180, N  Unable  to  obtain  stage  exit  press,  for  stage  N  in  LIMPRS  tries 
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190, N  Unable  to  obtain  trailing  edge  surface  temperature  for 

stage  N  in  LIMPRS  tries. 

200.1  Failed  to  carry  out  calculation  when  NEWSET  >0. 

520, N  Pulled  in  stage  N  while  iterating  for  wall  temp. 

999.1  Pulled  in  iteration  loop  for  time . 

VI  SAMPLE  PROBLEMS 


In  a  program  with  as  many  features  as  GFP,  it  would  be  prohibitive  to 
attempt  to  demonstrate  every  feature  by  a  sample  problem.  In  the 
following  examples,  however,  a  fairly  extensive  sampling  has  been 
included . 

A  listing  of  the  input  data  cards  is  given  first,  followed  by 
reproductions  of  many  of  the  pages  of  computer  output.  Missing  pages 
were  essentially  duplicates  of  pages  already  shown. 
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2HEADER  10  OPTION  1 

3GAS  1 
3ALLRUN  1 

4CASE*2»STAGES*10*CASTEP*2* 

3COFHLM  *4. 23 » 

3COFHTB  »  «0205»EXHPTB».4*EXHRTB»»8* 

3COFFLM  » 16  *EXPFLM*-1 ♦ 

3COFFTB  ».046*EXPFTB»  .2* 

3C1 *  *75  »C2  »  *75  * 

30LSUB ♦ 1= ♦ 3 ♦ DHGSUB *1=».5*AFFSUB*1=».19635» 

4N0L  » 1  *  10  *  NDHG » 1  *  1 0*  NAFF *1*10* 

4LIMPRS  40 
3PRTALL  *  1  * 

3PTI N » 23.45  *TT I N » 91 *TWMAX  *1235  •  16  »QTOT *4.7715  * 
3TWMAX»1237.92» 

3P0*1*1»1»1»1»1»1*1»1»1* 

3P1»1»1»1*1»1*1»1» 1*1*1* 

3P2*!*!*!*!*!*!*!*!*!*1* 

2HEADER  10  OPTION  2 
3QTOT*0»TTEX*500»W».01» 

3PRTALL  0 

2HEADER  10  OPTION  3 

3QTOT*4.7715»TTEX»0,PSEX*15.951 »W» ,01 »TWMAX*0» 
3PARPRT  1 

2HEADER  10  OPTION  4 
3QTOT  »0*TTEX»500»W**01» 

3PARPRT  0 

2HEADER  10  OPTION  5 

3QT0T»4.7715»TTEX,0*PTEX*16.841 ♦ W » . 01 »PSEX *0  * 

2HEADER  10  OPTION  6 
3QTOT»0,TTEX*500»W,.01» 

2HEADER  10  OPTION  7 

3QTOT*4.7715*TTEX*0*W».0478063»PTIN*0»PSEX *15.951 » 

9  PIND  AT  32250 

C32250*0» 

2HEADER  10  OPTION  8 
3QTOT*0*TTEX*500» 

032250*0* 

2HEADER  10  OPTION  9 

30T0T*4.7715*TTEX*0»PSEX*0*PTEX*16.841» 

C32250*0* 

2HEADER  10  OPTION  10 
3QTOT*0*TTEX*500» 

C32250*0* 

2HEADER  10  OPTION  11 

3QTOT* 4.771 5 *TTEX*0*PTIN» 23.45 »PTEX»0. 

2HEADER  10  OPTION  12  j 0 

30TOT»0*TTEX*500*  ^ 


4PRT  ALL  1 

2HEADER  10  OPTION  13 
3W  0  OTOT  4.7715 

3W  .25 

2HEADER  *10 »  RINGS 
4R0UND  »0 » 

4NDH  *  1 » 10  »NORI NG  *  1  =  *  1 2  » 

3R I NGS. 1. DI NNER. 1 =♦. 382 »DOUTER * 1=»2. 853 .THICK »1=*. 023585. 

2HEADER  10  RECTANGULAR 
3  W  »  •  0 1  ♦ 

=RINGS  0  RECTNG  1  WIDTH  1=*.20  HEIGHT  1=».25 
=W  .005 

2HEADER  10  ELLIPTICAL 
3W  4.78042  2 

=RECTNG  0  ELLIPS  1  ELPMAJ  1=».6  ELPMIN  1=».4 
3AFF » 1=  »0. 

4NAFF  0 

2HEADER  » 10 ♦  INTERSTAGE  LOSSES 
3CLOSS*2=».5*CLOSSt7=».75» 

4NCL0SS * 2  » 3 ♦  7»9* 

3ROUND. 1. ELL  I PS *0*DH»1  =  ». 5 » 

3W  .03 

4PRTALL.1 » 

2HEADER.10.  AUTO  INTERSTAGE  LOSSES 
3DH»l“*.4»l=».5»3=».4.AUTOLS»l* 

4NDH»1»2»  3t6.  7»10» 

2HEADER » 10»  MODIFIED  AUTO  INTERSTAGE  LOSSES 
3CLSMOD»2=# .75.3=*. 75. 

2 HEADER  10  X/L  STAGE  LENGTH  INPUT 
4NLEN  0  0 

3LENGTH  1=»0  TOTLEN  30 

=XOL  .1  .2  .3  .4  .5  .6  .7  .8  .9  1 

3PRTSUM.1. 

8 


THE  FOLLOWING  CARDS  ADDED  TO  THE  OPTION  12  INPUT  RECORD  ABOVE 
RESULTED  IN  THE  PARTIALLY  INCLUDED  OUTPUT  LABELED  -  PARAMETRIC 

2HEADER  »10*  PARAMETRIC 

3DPTIN»5*DTTIN*100*DTTEX»100.DW»-.01» 

4NOPTIN.2»NOTTIN»2»NOTTEX*2»NOW.2» 
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$  XEQ 

ENTRY  POINTS  TO  SUBROUTINES  REQUESTED  FROM  LIBRARY, 


(FPTJ 

(SPH) 

(FIL) 

LOG 

EXP 

£XP(  3 

SORT 

(DIP) 

(  TSHM) 

(RTN) 

(BST) 

( I  OH ) 

(WER) 

iTESJ 

( WRS 1 

(WTC) 

I  RCH  J 

LMPROP 

00150 

NOPROP 

00206 

000000 

00253 

CONSIS 

00456 

CONTMP 

01342 

DPFRLT 

01472 

FRCFAC 

02562 

OATPRO 

03025 

INI TAL 

04212 

INPPRT 

04523 

I TRC ON 

06777 

OUTPUT 

10707 

PRTUNT 

12514 

READIN 

13324 

RESET 

14707 

SETYLD 

1512  7 

SUMPRT 

15321 

TWLT 

16215 

UNCHKE 

2002  7 

GAM 

20672 

PR.N 

21214 

R  . 

21534 

TC 

21661 

TMPENT 

22202 

vise 

23213 

AMACH 

23533 

DSTRB1 

23762 

DYPRS 

24171 

EXTRAP 

24312 

FLWFUN 

24556 

FPRNT 

24722 

LOSS 

25014 

NETERR 

25277 

P0WER3 

25355 

PRSFUN 

25535 

PSTAT 

25671 

TPINSP 

25775 

XPRNT 

26125 

BOTTOM 

27105 

COLUMN 

27070 

NOHEAD 

27100 

HDING 

27061 

NEWSET 

27052 

PAGES 

27037 

LINES 

27045  . 

RESTO 

27035 

(STHM) 

27352 

(  STHJ 

27347 

NOPAGE 

27076 

ANPIPM 

27132 

/WOT 

27442 

( FPT) 

27600 

EXP 

27740 

LOG 

27653 

EXPO 

27625 

SORT 

30025 

(TSHM) 

30113 

I  TSH ) 

30110 

(SPH) 

30136 

(BST) 

30431 

(WTC3 

30521 

(WER) 

30470 

( RDC) 

30600 

(RER) 

30556 

(RTN) 

32264 

i  FIL  ) 

32253 

(  I  OH ) 

30616 

(  TCO ) 

325  35 

...  (TEF) 

.32534 

I  RCH) 

32533 

(ETT) 

32532 

(REW) 

32531 

( WEF) 

32530 

{ BSR ) 

32527 

(WRS) 

32526 

(RDS) 

32525 

(  IOS) 

32446 

I  TRC ) 

32536 

(EXE) 

32601 

I IOU) 

33362 

(DIP) 

33406 

ERRORA 

34624 

ERROR 

34625 

EXIT 

35046 

ITES) 

35070 

_ EXECUTION. . 

_  . 

4o 


Pan  2.010-  h'i’iMo+tfS  ^avawt^-irio 


OPTION  1 

*  *  *  GENERAL  FLOW  PASSAGE  IANP  663)  *  *  » 


INPUT  UNITS  ARE  INCHES,  SQ.  IN.,  PSIA,  DEG  F,  BTU/SEC,  LBM/SEC 

CASE  2  ORIGINAL  GEOMETRICAL  INPUT  OATA 

TOTAL  LENGTH  =  0.  CROSS  SECTION  IS  GENERAL 

HYDR.  FLOW 

STGE  X/L  LENGTH  DIAM  AREA 

1  0.  3.0000+00  5.0000-01  1.9635-01 

2  0.  0.  0.  0. 

3  0.  0.  0.  0. 

4  0.  0.  0.  0. 

5  0.  0.  0.  0. 

6  0.  0.  -  0.  . -  0. . . . — . 

7  0.  0.  0.  0. 

80.  0.  0.  0.  . . 

9  0.  0.  0.  0. 

10  0.  0.  0.  0. 


OPTION  1 


Y/ 


OPTION  1 


*  *  *  GENERAL  FLOW  PASSAGE  { ANP  663)  *  *  * 

INPUT  UNITS  ARE  INCHES*  SQ.  IN.*  PSIA*  DEG  F*  BTU/SEC*  LBM/SEC. 


CASE  2  PROCESSED  GEOMETRICAL  INPUT  AND  F-  AND  H- MULT I PLIERS 


TOTAL  LENGTH  =  3.0000+01 


CROSS  SECTION  IS  GENERAL 


STGE  X/L  LENGTH 


HYDR. 

DIAM 


FLOW  H-  F- 

AREA  MULT  MULT 


1  0.1000 
2  0.2000 

3  0.3000 

4  0.4000 

5  0.5000 

6  0.6000 

7  0.7000 

8  0.8000 

9  0.9000 

10  1.0000 


3.00000+00 
3.00000+00 
3.00000+00 
3.00000+00 
3.00000+00 
3. 00000+00 
3.00000+00 
3.00000+00 
3.00000+00 
3.00000+00 


5.00000-01 

1.96350-01 

1.0000 

1.0000 

5.00000-01 

1.96350-01 

1.0000 

1.0000 

5.00000-01 

1.96350-01 

1.0000 

1.0000 

5.00000-01 

1.96350-01 

1.0000 

1.0000 

5.00000-01 

1.96350-01 

1.0000 

1.0000 

5.00000-01 

1.96350-01 

1.0000 

l.QOOO 

5.00000-01 

1.96350-01 

1.0000 

1.0000 

5.00000-01 

1.96350-01 

1.0000 

1.0000 

5.00000-01 

1.96350-01 

1.0000 

1.0000 

5.00000-01 

1.96350-01 

1.0000 

1.0000 

OPTION  1 


OPTION  I 


*  *  *  GENERAL  FLOW  PASSAGE  ( ANP  663)  *  *  * 


INPUT  UNITS 

ARE  INCHES, 

SQ.  IN., 

PSIA, 

DEG  F,  BTU/SEC,  LBM/SEC. 

CASE 

2 

POWER  PROFILE 

AND  INTERSTAGE 

LOSS  INPUT 

AUTOLOSS 

CALC  =  0. 

INTENDEO 

ENTRANCE  LENGTH  EFFECT 

«  0. 

BETA  1  = 

=  0. 

BETA2  = 

0. 

INTRSTGE 

AUTO  LOSS 

STGE 

LOSS  CUF 

MULT 

PHI  SUM 

PHI  EX 

PO 

PI 

P  2 

I 

0. 

1.0000 

0. 1000 

1.0000 

1.0000 

1.0000 

1.0000 

2 

0. 

1.0000 

0.2000 

1.0000 

1.0000 

1.0000 

1.0000 

3 

0. 

1.0000 

0.3000 

1.0000 

1.0000 

1.0000 

1.0000 

4 

0. 

1.0000 

0.4000 

1.0000 

1.0000 

1.0000 

1.0000 

5 

0. 

1.0000 

0.5000 

1.0000 

1.0000 

1.0000 

1.0000 

6 

0. 

1.0000 

0.6000 

1.0000 

1.0000 

1.0000 

1.0000 

7 

0. 

1.0000 

0.7000 

1.0000 

1.0000 

1.0000 

1.0000 

8 

0. 

1.0000 

0.8000 

1.0000 

1.0000 

1.0000 

1.0000 

9 

0. 

1.0000 

0.9000 

1.0000 

1.0000 

1.0000 

1.0000 

-10 

0. 

1.0000 

1.0000 

1.0000 

1.0000 

1.0000 

1.0000 

OPTION  1 


OPTION  1 


*  *  *  GENERAL  FLOW  PASSAGE  ( ANP  663)  *  *  * 

INPUT  UNITS  ARE  INCHES,  SQ.  IN.,  PSIA,  DEG  F,  B1U/SEC,  LBM/SEC. 

CASE  2  FLOW  INPUT  DATA  (GAS  IS  AIR  ,NO  1.) 

*  #  *  WILL  EXECUTE  OPTION  NO  1  *  *  * 


FRICTION  FACT  AND  HEAT  TRANSFER  CORRELATION  FORMS 
N(NUS)=A*(N(PR)**B)*{N{RE)**C) 

F=D* I N ( RE ) **E ) 

NUMERICAL  VALUES  (L  FOR  LAMINAR,  T  FOR  TURBULENT) 


AL  = 

4.230+00, 

BL  = 

0.  , 

CL= 

0. 

AT= 

2.050-02, 

BT= 

4.000-01, 

CT= 

8.000-01 

DL  = 

1.600+01, 

EL= 

-1.000+00, 

DT= 

4.600-02,  ET= 

-2.000-01 


BULK  TEMP  FOR  HEAT  TRANSFER  CORREL ATI  ON ( 0  =  NO,  1=YES) 
LAMINAR  =  0  TURBULENT  =  0 


TRANSITION  RANGE  FOR  NINU)  2.0000+03  TO  8.0000+03 
TRANSITION  FOR  FRICTION  AT  2.3000+03 


TOTAL 

PRESS 

INLET  2.34500+01 

EXIT  0. 

EX/IN  0. 

PSEX/PTIN  =  0. 
WEIGHT  FLOW  =  0. 
QBAR  =  0. 

MAX  WALL  TEMP  = 


STATIC  TOTAL 

PRESS  TEMP 

91.00 

0.  0. 

0. 


HEAT  RELEASE  = 
Q/QBAR  =  0. 

1237.92  AT  STAGE  NO  0 


4.77150+00 


ACCURACIES  I  FRACTIONAL  UNLESS  NOTED) 

PRESS  MACH  NO  WALL  TEMP { DEG) 

10.000-05  10.000-05  0.05 

COUNTER  LIMITS  ON  ITERATIONS 
OPTION  ITERATION  =  15 

CHOKES/WT  FLOW  =  10  CHOKES/CASE  =  30 
STAGE  PRESS  AND  WALL  TEMP  =  40 


OPTION  L 


OPTION  1 


*  *  *  GENERAL  FLOW  PASSAGE  ( ANP  663)  *  *  * 

OUTPUT  UNITS  ARE  INCHES,  SQ.  IN.,  PSIA,  DEG  F,  BTU/SEC,  LBM/SEC. 

CASE  2  FLOW  AND  TEMPERATURE  RESULTS  IGAS  IS  AIR  ,  NO  1) 


WEIGHT  FLOW  =  4.78042-02  MAX  AVE  WALL  TEMP  =  1237.92  AT  STAGE  10 


HEAT 

ADDITION  = 

4.7715+00 

TOTAL 

PRESS 

STATIC 

PRESS 

TOTAL  DYNAMIC  MACH 

TEMP  PRESS  NO 

REYNOLDS 

NO 

INLET 

EXIT 

IN-EX 

RATIO 

23.450 

16.840 

6.6098+00 

0.71813 

15.950 

91.0  1.1999+00  0.2777  9.59121+03 

500.0  2.8201+00  0.5056  7.87759+04 

-409.02 

1.7423  PSEX/PTIN  =  0.68018 

ENTRANCE  AND  EXIT 
LOSS  COEFF 

LOSSES 

P-TOT  LOSS 

TOT  PRESS 

INLET 

7.5000-01 

8.9993-01 

22. 550 ( AFTER ) 

exi  r 

7.5000-01 

2. 1151+00 

18.9551  BEFORE) 

CASE 

2  STAGE-BY-STAGE 

OUTPUT  1 

RESULTS 

EXIT 

I NTRSTGE 

EXIT 

EXIT 

EXIT 

AVE 

STGE 

P-TOT 

P-TO  LOSS 

T-TOT 

T-WALL 

MACH  NO 

REYN  NO 

1 

22.30 

0. 

132.5 

1084.4 

0.3059 

1.12093+05 

2 

22.03 

0. 

173.8 

1087.6 

0.3223 

1.06621+05 

3 

21.74 

0. 

215.1 

1096. 1 

0.3395 

1.01762+05 

4 

21.43 

0. 

256.2 

1108.9 

0.3575 

9.74210+04 

5 

21.09 

0. 

297.2 

1125.0 

0.3768 

9.35202+04 

6 

20.73 

0. . 

338.1 

1143.8 

0.3974 

8.99971+04 

7 

20.34 

0. 

378.8 

1164.9 

0.4200 

8.68003+04 

8 

19.92 

0. 

419.4 

1187.8 

0.4449 

8.38872+04 

9 

19.46 

0. 

459.8 

1212.2 

0.4731 

8.12224+04 

10 

18.96 

0. 

500.0 

1237.9 

0.5056 

7.87759+04 

OPTION  1 


OPTION  L 


*  *  *  GENERAL  FLOW  PASSAGE  ( ANP  663)  *  *  * 
OUTPUT  UNITS  ARE  INCHES,  SQ.  IN.,  PSIA,  OEG  F,  BTU/SEC, 


CA5E  2  MISCELLANEOUS  STAGE-BY-STAGE  OUTPUT 


EXIT 

EXIT 

AUTO 

I NTR- 

H- 

F- 

STGE 

P-DYN 

P-STAT 

STG 

LOSS 

COEFF 

COEFF 

1 

1.3679+00 

20.90 

0. 

1.0637-04 

4.4962-03 

2 

1.4888+00 

20.50 

0. 

1.  1081-04 

4.5414-03 

3 

1.6158+00 

20.08 

0. 

1.1493-04 

4.  5840-03 

4 

1. 7499+00 

19.62 

0. 

1.1875-04 

4.6241-03 

5 

1.8924+00 

19.13 

0. 

1.2232-04 

4.6620-03 

6 

2.0450+00 

18.61 

0. 

1.2566-04 

4.6980-03 

7 

2.2 102+00 

18.03 

0. 

1.2880-04 

4.7321-03 

8 

2.3909+00 

17.41 

0. 

1.3177-04 

4.7645-03 

9 

2.5920+00 

16.72 

0. 

1.3457-04 

4.7954-03 

10 

2.8201+00 

15.95 

0. 

1.3722-04 

4.8248-03 

OPTION  2 


LBM/SEC. 


MASS 

VELOCITY 

2.4346-01 

2.4346-01 

2.4346-01 

2.4346-01 

2.4346-01 

2.4346-01 

2.4346-01 

2.4346-01 

2.4346-01 

2.4346-01 


OPTION  2 


*  *  *  GENERAL  FLOW  PASSAGE  ( ANP  663)  *  *  * 

INPUT  UNITS  ARE  INCHES*  SQ.  IN.»  PSIA,  DEG  F*  BTU/SEC*  LBM/SEC. 

CASE  4  ORIGINAL  GEOMETRICAL  INPUT  DATA 

TOTAL  LENGTH  =  0.  CROSS  SECTION  IS  GENERAL 

FLOW 
AREA 

1.9635-01 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 


OPTION  2 


^7 


STGE 

X/L 

LENGTH 

HYDR. 

DI  AM 

1 

0. 

3. 0000+00 

5.0000-01 

2 

0. 

0. 

0. 

3 

0. 

0. 

0. 

4 

0. 

0. 

0. 

5 

0. 

0. 

0. 

6 

0. 

0. 

0. 

7 

0. 

0. 

0. 

8 

0. 

0. 

0. 

9 

0. 

0. 

0. 

10 

0. 

0. 

0. 

OPTION  2 


*  *  »  GENERAL  FLOW  PASSAGE  { ANP  663)  *  *  * 

INPUT  UNITS  ARE  INCHES,  SQ.  IN.,  PSIA,  DEG  F,  BTU/SEC,  LBM/SEC. 

CASE  4  PROCESSED  GEOMETRICAL  INPUT  AND  F-  AND  H-MULTI PLIERS 

TOTAL  LENGTH  =  3.0000+01  CROSS  SECTION  IS  GENERAL 


HYDR. 

FLOW 

H- 

F- 

STGE 

X/L 

LENGTH 

DI  AM 

AREA 

MULT 

MULT 

I 

0. 1000 

3.00000+00 

5.00000-01 

1.96350-01 

1.0000 

1.0000 

2 

0.2000 

3.00000+00 

5.00000-01 

1.96350-01 

1.0000 

1.0000 

3 

0.3000 

3.00000+00 

5. 00000-0 1 

1.96350-01 

1.0000 

1.0000 

4 

0.4000 

3.00000+00 

5.00000-01 

1.96350-01 

1.0000 

1.0000 

5 

0.5000 

3.00000+00 

5.00000-01 

1.96350-01 

1.0000 

1.0000 

6 

0.6000 

3.00000+00 

5.00000-01 

1.96350-01 

1.0000 

1.0000 

7 

0.7000 

3.00000+00 

5.00000-01 

1.96350-01 

1.0000 

1.0000 

8 

0.8000 

3.00000+00 

5.00000-01 

1.96350-01 

1.0000 

1.0000 

9 

0.9000 

3.00000+00 

5.00000-01 

1.96350-01 

1.0000 

1.0000 

10 

1.0000 

3.00000+00 

5.00000-01 

1.96350-01 

1.0000 

1.0000 

OPTION  2 


OPTION  2 


*  *  *  GENERAL  FLOW  PASSAGE  { ANP  663)  *  *  * 


INPUT  UNITS 

ARE  INCHES 

,  SQ.  IN., 

PSIA, 

DEG  F 

,  BTU/SEC,  LBM/SEC 

CASE 

4 

POWER  PROFILE  AND  INTERSTAGE 

LOSS 

INPUT 

AUTOLOSS 

CALC  =  0. 

INTENDEO 

ENTRANCE  LENGTH  EFFECT 

=  0. 

BETA1  - 

=  0* 

BETA2  = 

0. 

INTRSTGE 

AUTO  LOSS 

STGE 

LOSS  COF 

MULT 

PH  I  SUM 

PHI  EX 

PO  PI 

1 

0. 

1.0000 

0.1000 

1.0000 

0. 

0. 

0. 

2 

0. 

1.0000 

0.2000 

1.0000 

0. 

0. 

0. 

3 

0. 

1.0000 

0.3000 

1.0000 

0. 

0. 

0. 

4 

0. 

1.0000 

0.4000 

1.0000 

0. 

0. 

0. 

5 

0. 

1.0000 

0.5000 

1.0000 

0. 

0. 

0. 

6 

0. 

1.0000 

0.6000 

1.0000 

0. 

0. 

0. 

7 

0. 

1.0000 

0.7000 

1.0000 

0. 

0. 

0. 

8 

0. 

1.0000 

0.8000 

1.0000 

0. 

0. 

0. 

9 

0. 

1.0000 

0.9000 

1.0000 

0. 

0. 

0. 

10 

0. 

1.0000 

1.0000 

1.0000 

0. 

0. 

0. 

OPTION  2 


P2 


OP 14 ON  2 


*  *  *  GENERAL  FLOW  PASSAGE  I ANP  663)  *  *  * 

INPUT  UNITS  ARE  INCHES*  SQ.  IN.*  PSIA,  OEG  F»  8TU/SEC*  LBM/SEC. 

CtiSE  4  FLOW  INPUT  DATA  {GAS  IS  AIR  #  NO  1.) 

*  *  *  WILL  EXECUTE  OPTION  NO  2  *  *  * 

FRICTION  FACT  AND  HEAT  TRANSFER  CORRELATION  FORMS 
N INUS) =A* INI  PR) **8 ) * { N { RE ) **C ) 

F=D» (N { RE ) **E ) 

NUMERICAL  VALUES  (L  FOR  LAMINAR*  T  FOR  TURBULENT)  . — 

AL=  4.230+00,  BL=  0.  ,  CL=  0. 

AT=  2.050-02,  8T=  4.000-01,  CT=  8.000-01 

DL=  I. 600+01,  EL=  -1.000+00,  0T=  4.600-02,  ET=  -2.000-01 

BULK  TEMP  FOR  HEAT  TRANSFER  CORREL ATI ONC 0=N0,  1=YES) 

LAMINAR  =  0  TURBULENT  =0 

TRANSITION  RANGE  FOR  N1NU)  2. 0000+03  TO  8.0000+03 
TRANSITION  FOR  FRICTION  AT  2.3000+03 


TOTAL 

STATIC 

TOTAL 

PRESS 

PRESS 

TEMP 

INLET 

2.34500+01 

91.00 

EXIT 

0. 

0. 

500.00 

EX/IN 

0. 

0. 

PSEX/PTIN  = 

0. 

WE  I.GHT 

FLOW  = 

10.00000-03 

HEAT 

RELEASE  = 

QBAR  = 

0. 

Q/QBAR  = 

0. 

MAX 

WALL  TEMP 

=  1237.92  AT 

STAGE  NO  0 

ACCURACIES  {FRACTIONAL  UNLESS  NOTED) 

PRESS  MACH  NO  WALL  TEMPIDEG) 

10.000-05  10.000-05  0.05 

COUNTER  LIMITS  ON  ITERATIONS 
OPTION  ITERATION  =  15 

CHOKES/WT  FLOW  =  10  CHOKES/CASE  *  30 
STAGE  PRESS  AND  WALL  TEMP  =  40 


-OPTION  2 


OUTPUT 

*  *  * 

UNI TS  ARE 

GENERAL  FLOW 
INC HE St  SQ 

PASSAGE  IANP  663)  * 
.  IN. t  PSIA,  DEG  F, 

*  * 

8TU/SEC* 

LBM/SEC. 

CASE 

4  FLOW  AND  TEMPERATURE  RESULTS  I  GAS 

IS  AIR 

,  NO  1 ) 

WEIGHT 

FLOW  * 
HEAT 

4.78204-02 
ADDITION  * 

MAX  AVE  WALL  TEMP  = 
4.7729+00 

1237.92 

AT  STAGE  10 

TOTAL 

P.RESS 

STATIC 

PRESS 

TOTAL  DYNAMIC 

TEMP  PRESS 

MACH 

NO 

REYNOLDS 

NO 

INLET 

EXIT 

IN-EX 

RATIO 

23.450 

16.834 

6.6160+00 

0.71787 

15.943 

91.0  1.2008+00  0.2778  9.59446+03 

500.0  2.8231+00  0.5060  7.88038+04 

-409.00 

1.7423  PSEX/PTIN  =  0.67986 

ENTRANCE  AND  EXIT  LOSSES 

LOSS  COEFF  P-TOT  LOSS 

INLET  7.5000-01  9.0057-01 

EXIT  7.5000-01  2.1173+00 

TOT  PRESS 
22.549IAFTER) 
18.951 ( BEFORE ) 

CASE 

4  STAGE-BY-STAGE  OUTPUT  RESULTS 

EXIT 

INTRSTGE  EXIT 

EXIT 

EXIT 

AVE 

STGE 

P-TOT 

P-TO  LOSS  T-TOT 

T-WALL 

MACH  NO 

REYN  NO 

1 

22.30 

0.  132.5 

1084.4 

0.3060 

1.12131+05 

2 

22.03 

0.  173.8 

1087.6 

0.3224 

1.06657+05 

3 

21.74 

0.  215.1 

1096.1 

0.3396 

1.01797+05 

4 

21.43 

0.  256.2 

1108.9 

0.3577 

9.74547+04 

5 

21.09 

0.  297.2 

1125.0 

0.3770 

9.35527+04 

6 

20.73 

0.  338.1 

1143.9 

0.3977 

9.00285+04 

7 

20.34 

0.  378.8 

1164.9 

0.4202 

8.68307+04 

8 

19.92 

0.  419.3 

1187.8 

0.4452 

8.39167+04 

9 

19.46 

0.  459.7 

1212.2 

0.4734 

8.12511+04 

10 

18.95 

0.  500.0 

1237.9 

0.5060 

7.88038+04 

OPTION  2 


OPTION  2 


*  *  *  GENERAL  FLOW  PASSAGE  < ANP  663)  *  »  * 

OUTPUT  UNITS  ARE  INCHES,  SQ.  IN.,  PSIA,  DEG  F,  BTU/SEC,  LBM/SEC. 


CASE  4  MISCELLANEOUS  STAGE-BY-STAGE  OUTPUT 


EXIT 

EXIT 

AUTO 

INTR- 

H- 

F- 

MASS 

STGE 

P-DYN 

P-STAT 

STG 

LOSS 

COEFF 

COEFF 

VELOCITY 

1 

1.3689+00 

20.90 

0. 

1.0640-04 . 

4.4959-03 

2.4355-01 

2 

1.4899+00 

20.50 

0. 

1.1084-04 

4.5411-03 

2.4355-01 

3 

1.61 71+00 

20.07 

0. 

1.1496-04 

4.5836-03 

2.4355— Q1 

4 

1.7513+00 

19.62 

0. 

1.1878-04 

4.6238-03 

2.4355-01 

5 

1.8939+00 

19.13 

0. 

1.2235-04 

4.6617-03 

2.4355-01 

6 

2.0467+00 

18.60 

0. 

1.2569-04 

4.6977-03 

2.4355-01 

7 

2.2121+00 

18.03 

0. 

1.2884-04 

4.7318-03 

. . 2.4355-01 

8 

2.3931+00 

17.40 

0. 

1.3180-04 

4.7642-03 

2.4355-01 

9 

2.5945+00 

16.71 

0. 

1.3460-04 

4.7950-03 

2.4355-01 

10 

2.8231+00 

15.94 

0. 

1.3725-04 

4.8245-03 

2.4355-01 

OPTION  3 


•5  J 


OPTION  3 


*  *  *  GENERAL  FLOW  PASSAGE  ( ANP  663)  *  *  * 

INPUT  UNITS  ARE  INCHES,  SQ.  IN.,  PSIA,  OEG  F,  8TU/SEC,  LBM/SEC 

CASE  6  ORIGINAL  GEOMETRICAL  INPUT  DATA 

TOTAL  LENGTH  =  0.  CROSS  SECTION  IS  GENERAL 

HYOR.  FLOW 

STGE  X/L  LENGTH  DIAM  AREA 


1  0. 
2  0. 

3  0. 

4  0. 

5  0. 
A  ...  0. 

7  0. 

8  0. 

9  0. 

10  0. 


3.0000+00 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 


5.0000-01 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 


1.9635-01 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 


OPTION  3 


3  3 


OPTION  3 


• 

INPUT  UNITS 

*  *  GENERAL  FLOW  PASSAGE  I ANP  663)  * 
.  ARE  INCHES,  SQ.  IN.,  PSIA,  DEG  F, 

•  • 

BTU/SEC , 

LBM/ SEC- 

CASE 

6 

PROCESSED 

GEOMETRICAL 

INPUT  AND  JF- 

AND 

i  -H- MULT  I  PLIERS 

TOTAL 

LENGTH  = 

3.0000+01 

CROSS  SECTION 

IS  GENERAL 

STGE 

X/L 

LENGTH 

HYDR. 

DIAM 

FLOW 

AREA 

H- 

MULT 

F- 

MULT 

1 

0. 1000 

3.00000+00 

5.00000-01 

1.96350-01 

1.0000 

1.0000 

2 

0.2000 

3.00000+00 

5.00000-01 

1.96350-01 

1.0000 

1.0000 

3 

0.3000 

3.00000+00 

5.00000-01 

1.96350-01 

1.0000 

1.0000 

4 

0.4000 

3.00000+00 

5.00000-01 

1.96350-01 

1.0000 

1.0000 

5 

0. 5000 

3.00000+00 

5.00000-01 

1.96350-01 

1.0000 

1.0000 

6 

0.6000 

3.00000+00 

5.00000-01 

1.96350-01 

1.0000 

1.0000. 

7 

0.7000 

3.00000+00 

5.  0000.0-01 

1.96350-01 

1.0000 

1.0000 

8 

0.8000 

3.00000+00 

5.00000-01 

1.96350-01 

1.0000 

1.0000 

9 

0.9000 

3.00000+00 

5.00000-01 

1.96350-01 

1.0000 

1.0000 

10 

1.0000 

3.00000+00 

5.00000-01 

1.96350-01 

1.0000 

.  1.0000 

OPTION  3 


OPTION  3 


*  *  *  GENERAL  FLOW  PASSAGE  < ANP  663)  *  *  * 

INPUT  UNITS  ARE  INCHES,  SQ.  IN.,  PSIA,  OEG  F,  BTU/SEC,  LBM/SEC 

CASE  6  POWER  PROFILE  AND  INTERSTAGE  LOSS  INPUT 


AUTOLOSS  CALC  =  0. 

INTENDED  ENTRANCE  LENGTH  EFFECT  =  0. 


BETA1  = 

0. 

BETA2 

=  0. 

INTRSTGE 

AUTO  LOSS 

STGE 

LOSS  COF 

MULT 

PH I  SUM 

PHI  EX 

PO 

PI 

I 

0. 

1.0000 

0. 1000 

1.0000 

0. 

0. 

0. 

2 

0. 

1.0000 

0.2000 

1.0000 

0. 

0. 

0. 

3 

0. 

1.0000 

0.3000 

1.0000 

0. 

0. 

0. 

4 

0. 

1.0000 

0.4000 

1.0000 

0. 

0. 

0. 

5 

0. 

1.0000 

0.5000 

1.0000 

0. 

0. 

0. 

6 

0. 

1.0000 

0.6000 

1.0000 

0. 

0. 

0. 

7 

0. 

1.0000 

0.7000 

1.0000 

0. 

0. 

0. 

8 

0. 

1.0000 

0.8000 

1.0000 

0. 

0. 

0. 

9 

0. 

1.0000 

0.9000 

1.0000 

0. 

0. 

0. 

10 

0. 

1.0000 

1.0000 

1.0000 

0. 

0. 

0. 

P  2 


OPTION  3 


OPTION  3 


*  *  *  GENERAL  FLOW  PASSAGE  ( ANP  663)  *  *  * 

INPUT  UNITS  ARE  INCHES,  SQ.  IN.,  PSIA,  OEG  F,  BTU/SEC,  LBM/SEC. 

CASE  6  FLOW  INPUT  DATA  (GAS  IS  AIR  ,NC  l.) 

*  *  »  WILL  EXECUTE  OPTION  NO  3  *  *  * 

FRICTION  FACT  AND  HEAT  TRANSFER  CORRELATION  FORMS 
N ( NUS) =A  *(NIPR)**B)*(N(RE)**C) 

F=D* ( N ( RE ) *#E) 

NUMERICAL  VALUES  (L  FOR  LAMINAR,  T  FOR  TURBULENT) 


AL  = 

4.230+00, 

BL= 

0.  , 

CL= 

0. 

AT= 

2.050-02, 

BT= 

4.000-01, 

CT= 

8.000-01 

DL=; 

1.600+01, 

EL= 

-1.000+00, 

DT= 

4.600-02,  ET=  -2.000-01 

BULK  TEMP  FOR  HEAT  TRANSFER  CORRELATION! 0=N0,  I=YES) 
LAMINAR  =  0  TURBULENT  =  0 


TRANSITION  RANGE  FOR  N(NU)  2.0000+03  TO  8.0000+03 
TRANSITION  FOR  FRICTION  AT  2.3000+03 


TOTAL 

STATIC 

TOTAL 

PRESS 

PRESS 

TEMP 

INLET 

2.34500+01 

91.00 

EXIT 

0. 

1.59510+01 

0. 

EX/IN 

0. 

0. 

PSEX/PTIN  = 

0. 

WEIGHT 

FLOW  = 

10.00000-03  HEAT 

RELEASE  = 

4.77150+00 

QBAR  * 

0. 

Q/QBAR  =  0. 

MAX 

WALL  TEMP 

=  0.  AT  STAGE  NO  0 

ACCURACIES  (FRACTIONAL  UNLESS  NOTED) 

PRESS  MACH  NO  WALL  TEMP ( DEG) 

10.000-05  10.000-05  0.05 

COUNTER  LIMITS  ON  ITERATIONS 
OPTION  ITERATION  =  15 

CHOKES/WT  FLOW  =  10  CHOKES/CASE  =  30 
STAGE  PRESS  AND  WALL  TEMP  =  40 


OPTION  3 


*  *  • 

GENERAL  FLOW 

PASSAGE 

(ANP  663)  * 

*  * 

OUTPUT 

UNITS  ARE 

INCHES,  SQ.  IN., 

PSIA,  OEG  F, 

BTU/SEC, 

LBM/SEC. 

CASE 

6  FLOW  AND  TEMPERATURE 

RESULTS  (GAS 

IS  AIR 

■  ,  NO— 1) . . 

WEIGHT 

FLOW  * 

4.78052-02 

MAX  AVE 

WALL  TEMP  = 

1237.90 

AT  STAGE  10 

HEAT 

ADDITION  = 

4.7715+00 

TOTAL 

STATIC 

TOTAL 

DYNAMIC 

MACH 

REYNOLDS 

PRESS 

PRESS 

TEMP 

PRESS 

NO 

. - . NO 

INLET 

23.450 

91.0 

1.2000+00 

0.2777 

9.59142*03 

EXIT 

16.840 

15.950 

500.0 

2.8203+00 

0.5056 

7.87781+04 

IN-EX 

6.6101+00 

-409.01 

RATIO 

0.71812 

1.7423 

PSEX/PTIN  =  0.68016 

ENTRANCE  AND  EXIT  LOSSES 

LOSS  COEFF 

P-TOT  LOSS  TOT 

PRESS 

INLET 

7.5000-01 

8.9997-01 

22. 

5501  AFTER ) 

EXIT 

7.5000-01 

2.1152+00 

18. 

9551  BEFORE ) 

CASE 

6  STAGE-BY-STAGE  OUTPUT  RESULTS 

EXIT 

INTRSTGE 

EXIT 

EXIT 

EXIT 

AVE 

STGE 

P-TOT 

P-TO  LOSS 

T-TOT 

T-WALL  MACH  NO 

REYN  NO 

1 

22.30 

0. 

132.5 

1084.3  0. 

3059 

1.12096+05 

2 

22.03 

0. 

173.8 

1087.5  0. 

3223 

1.06623+05 

3 

21.74 

0. 

215.  1 

1096.1  0. 

3395 

1.01765+05 

4 

21.43 

0. 

256.2 

1108.9  0. 

3576 

9.74233+04 

5 

21.09 

0. 

297.2 

1125.0  0. 

3768 

9.35225+04 

6 

20.73 

0. 

338.1 

1143.8  0. 

3975 

8-99994*04  ... 

7 

20.34 

0. 

378.8 

1164.9  0. 

4200 

8.68025+04 

8 

19.92 

0. 

419.3 

1187.8  0. 

4449 

8.38894+04 

9 

19.46 

0. 

459.8 

1212.2  0. 

4731 

8.12246+04 

10 

18.96 

0. 

500.0 

1237.9  0. 

5056 

7.87781+04 

OPTION  4 


*  *  *  GENERAL  FLOW  PASSAGE  ( ANP  663)  *  *  * 

INPUT  UNITS  ARE  INCHES,  SQ.  IN.,  PSIA,  DEG  F,  BTU/SEC,  LBM/SEC. 

CASE  8  FLOW  INPUT  DATA  (GAS  IS  AIR  ,NO  1.) 

*  *  *  WILL  EXECUTE  OPTION  NO  4  *  *  * 

FRICTION  FACT  AND  HEAT  TRANSFER  CORRELATION  FORMS 
N(NUS)=A*INtPR)*»B)*INIRE)**C) 

F=D*(NIRE)**E) 

NUMERICAL  VALUES  IL  FOR  LAMINAR,  T  FOR  TURBULENT) 


AL  = 

4.230+00, 

BL  = 

0.  , 

CL= 

0. 

AT= 

2.050-02, 

BT= 

4.000-01, 

C  T= 

8.000-01 

DL  = 

1.600+01, 

EL= 

-1.000+00, 

DT= 

4.600-02,  ET= 

-2.000-01 

BULK  TEMP  FOR  HEAT  TRANSFER  CORREL ATI  ON lO=NO,  1=YES) 
LAMINAR  =  0  TURBULENT  =0 

TRANSITION  RANGE  FOR  NINU)  2.0000+03  TO  8.0000+03 
TRANSITION  FOR  FRICTION  AT  2.3000+03 


INLET 

EXIT 

EX/IN 


TOTAL 

PRESS 

2.34500+01 

0. 

0. 


PSEX/PTIN  = 
WEIGHT  FLOW  = 
QBAR  =  0. 


STATIC 

PRESS 

1.59510+01 


TOTAL 
TEMP 
91.00 
500.00 
0. 

0. 

10.00000-03  HEAT  RELEASE  = 
Q/QBAR  =  0. 


MAX  WALL  TEMP  = 


0. 


AT  STAGE  NO 


ACCURACIES  (FRACTIONAL  UNLESS  NOTED) 

PRESS  MACH  NO  WALL  TEMP ( DEG) 

10.000-05  10.000-05  0.05 

COUNTER  LIMITS  ON  ITERATIONS 
OPTION  ITERATION  =  15 

CHOKES/WT  FLOW  =  10  CHOKES/CASE  =  30 
STAGE  PRESS  AND  WALL  TEMP  =  40 


OPTION  4 


OPTION  4 


•  *  * 

GENERAL  FLOW 

PASSAGE 

(ANP  663)  » 

*  * 

OUTPUT 

UNITS  ARE 

INCHES,  SO 

i.  IN.,  1 

PSIA,  DEG  F, 

8TU/SEC , 

LBM/SEC. 

CASE 

8  FLOW  AND  TEMPERATURE  RESULTS  IGAS 

IS  AIR 

,  NO  1) 

WEIGHT 

FLOW  = 

4.78015-02 

MAX  AVE 

WALL  TEMP  = 

1237.85 

AT  STAGE  10 

HEAT 

ADDITION  = 

4.7710+00 

TOTAL 

STATIC 

TOTAL 

DYNAMIC 

MACH 

REYNOLDS 

PRESS 

PRESS 

TEMP 

PRESS 

NO 

NO 

INLET 

23.450 

91.0 

1.1998+00 

0.2777 

9.59066+03 

EXIT 

16.842 

15.952 

500.0 

2.8195+00 

0.5055 

7.87726+04 

IN- .EX 

6.6085+00 

-409.00 

RATIO 

0.71819 

1.7423 

PSEX/PTIN  =  0.68024 

'  ENTRANCE  AND  EXIT  LOSSES 

LOSS  COEFF  P-TOT  LOSS 
INLET  7.5000-01  8.9982-01 

EXIT  7.5000-01  2.1146+00 


TOT  PRESS 
22.5501  AFTER ) 
18.956(8EF0RE ) 


OPTION  5 


OPTION  5 


*  *  *  GENERAL  FLOW  PASSAGE  ( ANP  663)  *  *  * 

INPUT  UNITS  ARE  INCHES*  SQ.  IN.»  PSIA,  DEG  F*  BTU/SEC*  LBM/SEC. 

CASE  10  ORIGINAL  GEOMETRICAL  INPUT  DATA 

TOTAL  LENGTH  =  0.  CROSS  SECTION  IS  GENERAL 

FLOW 
AREA 

1.9635-01 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 


OPTION  5 


C,o 


STGE  X/L 

1  0. 

2  0. 

3  0. 

4  0. 

5  0. 

6  0. 

7  0. 

8  0. 

9  0. 

10  0. 


LENGTH 

3.0000+00 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 


HYDR. 

DIAM 

5.0000-01 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 


OPTION  5 


*  *  *  GENERAL  FLOW  PASSAGE  I ANP  663)  *  *  * 

INPUT  UNITS  ARE  INCHES*  SQ.  IN.*  PSIA,  DEG  F,  BTU/SEC*  LBM/SEC. 

CASE  10  PROCESSED  GEOMETRICAL  INPUT  AND  F-  AND  H-MULT IPL I ERS 


TOTAL  LENGTH  =  3.0000+01  CROSS  SECTION  IS  GENERAL 


STGE  X/L  LENGTH 


HYDR. 

DIAM 


FLOW  H-  F- 

AREA  MULT  MULT 


1  0.1000 
2  0.2000 

3  0.3000 

4  0.4000 

5  0.5000 

6  0.6000 

7  0.7000 

8  0.8000 

9  0.9000 

10  1.0000 


3.00000+00 

3.00000+00 

3.00000+00 

3.00000+00 

3.00000+00 

3.00000+00 

3.00000+00 

3.00000+00 

3.00000+00 

3.00000+00 


5.00000-01 

5.00000-01 

5.00000-01 

5.00000-01 

5.00000-01 

5.00000-01 

5.00000-01 

5.00000-01 

5.00000-01 

5.00000-01 


1.96350-01 

1.96350-01 

1.96350-01 

1.96350-01 

1.96350-01 

1.96350-01 

1.96350-01 

1.96350-01 

1.96350-01 

1.96350-01 


1.0000 

1.0000 

1.0000 

1.0000 

1.0000 

1.0000 

1.0000 

1.0000 

1.0000 

1.0000 


1.0000 

1.0000 

1.0000 

1.0000 

1.0000 

1.0000 

1.0000 

1.0000 

1.0000 

1.0000 


OPTION  5 


OPTION  5 


*  *  *  GENERAL  FLOW  PASSAGE  I ANP  663)  *  *  * 

INPUT  UNITS  ARE  INCHES,  SQ.  IN.,  PSIA,  OEG  F,  BTU/SEC,  LBM/SEC 


CASE 

10 

POWER  PROFILE  AND  INTERSTAGE 

LOSS 

INPUT 

AUTOLOSS 

CALC  «  0. 

INTENDED 

ENTRANCE  LENGTH  EFFECT  =  0. 

BETA1  = 

=  0. 

BETA2 

=  0. 

INTRSTGE 

AUTO  LOSS 

. . 

STGE 

LOSS  COF 

MULT 

PHI  SUM 

PHIEX 

PO 

PI 

1 

0. 

1.0000 

0.1000 

1.0000 

0. 

0. 

0. 

2 

0. 

1.0000 

0.2000 

1.0000 

0. 

0. 

0. 

3 

0. 

1.0000 

0.3000 

1.0000 

0. 

0. 

0. 

4 

0. 

1.0000 

0.4000 

1.0000 

0. 

0*  . 

0. 

5 

0. 

1.0000 

0.5000 

1.0000 

0. 

0. 

0. 

6 

0. 

1.0000 

0.6000 

1.0000 

0. 

0. 

0. 

7 

0. 

1.0000 

0.7000 

1.0000 

0. 

0. 

0. 

8 

0. 

1.0000 

0.8000 

1.0000 

0. 

0. 

0. 

9 

0. 

1.0000 

0.9000 

1.0000 

0. 

0. 

0. 

10 

0. 

1.0000 

1.0000 

1.0000 

0. 

0. _ 

. 

OPTION  5 


P2 


OPTION  5 


*  *  *  GENERAL  FLOW  PASSAGE  l ANP  663)  *  *  * 

INPUT  UNITS  ARE  INCHES,  SQ.  IN.,  PSIA,  DEG  F,  BTU/SEC,  LBM/SEC. 

CASE  10  FLOW  INPUT  DATA  (GAS  IS  AIR  , NO  1.) 

*  *  »  WILL  EXECUTE  OPTION  NO  5  *  *  * 

FRICTION  FACT  AND  HEAT  TRANSFER  CORRELATION  FORMS 
NINUS)=A*(NIPR)»*B)*INIRE)**C) 

F=D*l N I  RE ) **E) 

NUMERICAL  VALUES  IL  FOR  LAMINAR,  T  FOR  TURBULENT ) 


AL= 

4.230+00, 

BL- 

0.  , 

CL= 

0. 

AT- 

2.050-02, 

BT= 

4.000-01, 

CT= 

8.000-01 

DL= 

1.600+01, 

EL= 

-1.000+00, 

0T= 

4.600-02,  ET=  -2.000-01 

BULK  TEMP  FOR  HEAT  TRANSFER  CORRELATI ON l 0= NO,  1=Y£S) 
LAMINAR  -  0  TURBULENT  =  0 


TRANSITION  RANGE  FOR  N{NU)  2.0000+03  TO  8.0000+03 
TRANSITION  FOR  FRICTION  AT  2.3000+03 


TOTAL 


STATIC 

PRESS 


TOTAL 


PRESS 

INLET  2.34500+01 

EXIT  1.68410+01  0. 

EX/IN  0. 

PSEX/PTIN  =  0. 

WEIGHT  FLOW  =  10.00000-03  HEAT  RELEASE 

QBAR  *  0.  Q/QBAR  *  0. 


TEMP 

91.00 

0. 

0. 


MAX  WALL  TEMP  = 


0. 


AT  STAGE  NO 


4.77150+00 


ACCURACIES  {FRACTIONAL  UNLESS  NOTED) 

PRESS  MACH  NO  WALL  TEMP ( DEG) 

10.000-05  10.000-05  0.05 

COUNTER  LIMITS  ON  ITERATIONS 
OPTION  ITERATION  =  15 

CHOKES/WT  FLOW  =  10  CHOKES/CASE  =  30 
STAGE  PRESS  AND  WALL  TEMP  =  40 


OPTION  5 


OPTION  5 


*  *  *  GENERAL  FLOW  PASSAGE  IANP  663)  *  »  * 

OUTPUT  UNITS  ARE  INCHES*  SQ.  IN.*  PSIA,  DEG  F»  BTU/SEC*  LBM/SEC. 

CASE  10  FLOW  AND  TEMPERATURE  RESULTS  IGAS  IS  AIR  ,  NO  1) 


WEIGHT 

FLOW  = 
HEAT 

4.78022-02 
ADDITION  = 

MAX  AVE  WALL 
4.7715+00 

TEMP  = 

1237.96  AT 

STAGE  10 

TOTAL 

PRESS 

STATIC 

PRESS 

TOTAL 

TEMP 

DYNAMIC 

PRESS 

MACH 

NO 

REYNOLDS 

NO 

INLET 

EXIT 

IN-EX 

RATIO 

23.450 

16.841 

6.6092+00 

0.71816 

15.951 

91.0  1. 

500.0  2. 
-409.04 
1.7424 

1998+00  0.2777 

8198+00  0.5056 

PSEX/PTIN  =  0.6802 

9.59081+03 

7.87717+04 

1 

ENTRANCE  AND  EXIT  LOSSES 

LOSS  COEFF 

P-TOT  LOSS  TOT 

PRESS 

INLET 

7.5000-01 

8.9985-01 

22. 

550 (AFTER ) 

EXIT 

7.5000-01 

2.1149+00 

18. 

956 ( BEFORE ) 

CASE 

10  STAGE 

-BY- STAGE 

OUTPUT  RESULTS 

EXIT 

INTRSTGE 

EXIT 

EXIT 

EXIT 

AVE 

STGE 

P-TOT  P 

-TO  LOSS 

T-TOT 

T-WALL 

MACH  NO 

REYN  NO 

1 

22.30 

0. 

132.5 

1084.4 

0.3058 

1.12088+05 

2 

22.03 

0. 

173.8 

1087.6 

0.3223 

1.06616+05 

3 

21.74 

0. 

215.  1 

1096.2 

0.3395 

1.01757+05 

4 

21.43 

0. 

256.2 

1108.9 

0.3575 

9.74163+04 

5 

21.09 

0. 

297.2 

1125. 0 

0.3767 

9.35155+04 

6 

20.73 

0. 

338.1 

1143.9 

0.3974 

8.99925+04 

7 

20.34 

0. 

378.8 

1164.9 

0.4200 

8.67958+04 

8 

19.92 

0. 

419.4 

1187.8 

0.4449 

8.38828+04 

9 

19.46 

0. 

459.8 

1212.3 

0.4730 

8.12181+04 

10 

18.96 

0. 

500.0 

1238.0 

0.5056 

7.87717+04 

OPTION  6 


RINGS 


«  *  *  GENERAL  FLOW  PASSAGE  ( ANP  663)  *  *  * 

INPUT  UNITS  ARE  INCHES,  SQ.  IN.,  PSIA,  DEG  F,  BTU/SEC,  LBM/SEC. 


CASE 


28  ORIGINAL  GEOMETRICAL  INPUT  DATA  . 

TOTAL  LENGTH  =  0.  CROSS  SECTION  IS  CONC.  RINGS 


STGE 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 


X/L 


0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 


LENGTH 

3.0000+00 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 


OUTER 
DI  AM 

2.8530+00 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 


INNER 

DIAM 

3.8200-01 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 


RING  NO 
THICK  RINGS 


2. 3585-02 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 


12 

0 

0 

0 

0 

0 

0 

0 

0 

0 


RINGS 


RINGS 


•  *  *  GENERAL  FLOW  PASSAGE  ( ANP  663 )  *  *  « 

INPUT  UNITS  ARE  INCHES*  SQ.  IN.*  PSIA*  OEG  F,  BTU/SEC*  LBM/SEC. 


CASE 


28  PROCESSED  GEOMETRICAL  INPUT  ANO  F-  AND  H-MULTIPLIERS 


TOTAL  LENGTH  =  3.0000+01  CROSS  SECTION  IS  ELLIPTICAL 


STGE  X/L  LENGTH 


HYDR. 

DIAM 


FLOW  H-  F- 

AREA  MULT  MULT 


1  0.1000 
2  0.2000 

3  0.3000 

4  0.4000 

5  0.5000 

6  0.6000 

7  0.7000 

8  0.8000 

9  0.9000 

10  1.0000 


3.00000+00 

3.00000+00 

3.00000+00 

3.00000+00 

3.00000+00 

3.00000+00 

3.00000+00 

3.00000+00 

3.00000+00 

3.00000+00 


1.77466-01 

1.77466-01 

1.77466-01 

1.77466-01 

1.77466-01 

1.77466-01 

1.77466-01 

1.77466-01 

1.77466-01 

1.77466-01 


2.70541+00 

2.70541+00 

2.70541+00 

2.70541+00 

2.70541+00 

2.70541+00 

2.70541+00 

2.70541+00 

2.70541+00 

2.70541+00 


1.0000 

1.0000 

1.0000 

1.0000 

1.0000 

1.0000 

1.0000 

1.0000 

1.0000 

1.0000 


1.0000 
1.0000 
1.0000 
1. 0000 
1.0000 
1.0000 
1.0000 
1.0000 
1.0000 
1.0000 


RINGS 


—&UIGS 


*  »  *  GENERAL  FLOW  PASSAGE  { ANP  663) 
INPUT-  UNITS  ARE  INCHES,  SQ.  IN.,  PSIA,  DEG  F 

CASE  28  POWER  PROFILE  AND.  INTERS T AGE  LOSS 


AUTOLOSS 

CALC  =  0. 

INTENDED 

ENTRANCE  LENGTH  EFFECT 

=  0. 

BETA1  = 

=  0. 

BETA2  = 

0. 

INTRSTGE 

AUTO  LOSS 

STGE 

LOSS  COF 

MULT 

PHI  SUM 

PHIEX 

1 

0. 

1.0000 

0.1000 

1.0000 

0. 

2 

0. 

1.0000 

0.2000 

1.0000 

0. 

3 

0. 

1.0000 

0.3000 

1.0000 

0. 

. . 4 

0. 

1.0000 

0.4000 

1.0000 

0. 

5 

0. 

1.0000 

O.SOOO 

1.0000 

0. 

6 

0. 

1.0000 

0.6000 

1.0000 

0. 

7 

0. 

1.0000 

0.7000 

1.0000 

0. 

8 

0. 

1.0000 

0.8000 

1.0000 

0. 

9 

0. 

1.0000 

0.9000 

1.0000 

0. 

.10 

0. 

1.0000 

1.0000 

1.0000 

0. 

*  »  * 

,  BTU/SEC, 

INPUT 


0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 


LBN!/ SEC 


PI 


0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 


P2 


RINGS 


RINGS 


*  *  *  GENERAL  FLOW  PASSAGE  (  ANP  663)  *  *  * 

INPUT  UNITS  ARE  INCHES,  SQ.  IN.,  PSIA,  OEG  F,  BTU/SEC,  LBM/SEC. 

CASE  28  FLOW  INPUT  DATA  (GAS  IS  AIR  ,NO  1.) 

*  *  *  WILL  EXECUTE  OPTION  NO  11  *  *  * 

FRICTION  FACT  AND  HEAT  TRANSFER  CORRELATION  FORMS 
N(NUS)=;A*{N(PR)**B)*{N(RE)**C) 

F=D*(N(RE)»*E) 

NUMERICAL  VALUES  (L  FOR  LAMINAR,  T  FOR  TURBULENT) 


AL= 

4.230+00, 

BL= 

0.  , 

CL= 

0. 

AT=n 

2.050-02, 

BT= 

4.000-01, 

CT= 

8.000-01 

DL= 

1. 600+01, 

EL  = 

-1.000+00, 

DT= 

4.600-02,  ET= 

BULK  TEMP  FOR  HEAT  TRANSFER  CORREL AT  I  ON ( 0=N0,  1=YES) 
LAMINAR  =  0  TURBULENT  =  0 

TRANSITION  RANGE  FOR  N(NU)  2.0000+03  TO  8.0000+03 
TRANSITION  FOR  FRICTION  AT  2.3000+03 


TOTAL 

STATIC 

PRESS 

PRESS 

INLET 

2.34500+01 

EXIT 

0. 

0. 

EX/IN 

0. 

PSEX/PTIN  = 

0. 

WEIGHT 

FLOW  = 

2.50000-01 

QBAR  = 

0. 

Q/QBAR  * 

MAX 

WALL  TEMP 

=  0.  AT 

TOTAL 

TEMP 

91.00 

500.00 

0. 

EAT  RELEASE  =  4.77150+00 

0. 

STAGE  NO  0 


ACCURACIES  (FRACTIONAL  UNLESS  NOTED) 

PRESS  MACH  NO  WALL  TEMP (OEG) 

10.000-05  10.000-05  0.05 

COUNTER  LIMITS  ON  ITERATIONS 
OPTION  ITERATION  =  15 

CHOKES/WT  FLOW  =  10  CHOKES/CASE  =  30 
STAGE  PRESS  AND  WALL  TEMP  =  40 


RINGS 


*  *  * 

GENERAL  FLOW 

PASSAGE  (ANP 

663)  * 

»  * 

OUTPUT 

UNITS  ARE 

INCHES,  SQ 

.  IN.,  PSIA, 

DEG  F, 

8TU/SEC, 

LBM/SEC. 

CASE 

28  FLOW  AND  TEMPERATURE  RESULTS  (GAS 

IS  AIR 

,  NO  l) 

WEIGHT 

FLOW  = 

2.50000-01 

MAX  AVE  WALL 

TEMP  = 

201.67 

AT  STAGE  1 

HEAT 

ADDITION  = 

4.7715+00 

TOTAL 

STATIC 

TOTAL 

DYNAMIC 

MACH 

REYNOLD 

PRESS 

PRESS 

TEMP 

PRESS 

NO 

NO 

INLET 

23.450 

91.0  1. 

6723-01 

0.1013 

1.29209+0 

EXIT 

22.305 

22.254 

170.2  2. 

0000-01 

0.1134 

1.41478+0 

IN-EX 

1. L453+00 

-79.21 

RATIO 

0.95116 

1.1438 

PSEX/PTIN  =  0.94900 

ENTRANCE  AND  EX 
LOSS  COEFF 

IT  LOSSES 

P-TOT  LOSS 

TOT  PRESS 

INLET 

7.5000-01 

1.2542-01 

2  3. 32  5( AFT  ER ) 

EXIT 

7.5000-01 

1.5000-01 

22.4551  BEFORE ) 

CASE 

28  STAGE-BY-STAGE 

OUTPUT  1 

RESULTS 

EXIT 

INTRSTGE 

EXIT 

EXIT 

EXIT 

AVE 

STGE 

P-TOT 

P-TO  LOSS 

T-TOT 

T-WALL 

MACH  NO 

REYN  NO 

1 

23.24 

0. 

98.9 

131.4 

0.1029 

1.54257+04 

2 

23.16 

0. 

106.9 

139.2 

0.1040 

1.52698+04 

3 

23.08 

0. 

114.8 

147.0 

0. 1052 

1.51177+04 

4 

23.00 

0. 

122.7 

154.8 

0.1063 

1.49692+04 

5 

22.91 

0. 

130.7 

162.6 

0.  1075 

1.48243+04 

6 

22.82 

0. 

138.6 

170.5 

0.1086 

1.46827+04 

7 

22.73 

0. 

146.5 

178.  3 

0.1098 

1.45443+04 

8 

22.64 

0. 

154.4 

186.1 

0.1110 

1.44091+04 

9 

22.55 

0. 

162.3 

193.9 

0.1122 

1.42770+04 

10 

22.45 

0. 

170.2 

201.7 

0.1134 

1.41478+04 

RINGS 


#  *  *  GENERAL  FLOW  PASSAGE  ( ANP  663)  *  *  * 

OUTPUT  UNITS  ARE  INCHES*  SQ.  IN.*  PSIA*  DEG  F*  BTU/SEC*  LBM/SEC. 


CASE  28  MISCELLANEOUS  STAGE-BY-STAGE  OUTPUT 


exi  r 

EXIT 

STGE 

P-OYN 

P-STAT 

1 

1.7116-01 

23.07 

2 

1.7422-01 

22.99 

3 

1.7731-01 

22.90 

4 

1.8044-01 

22.82 

5 

1.8360-01 

22.73 

6 

1.8680-01 

22.64 

7 

1.9004-01 

22.54 

8 

1.9332-01 

22.45 

9 

1.9664-01 

22.35 

10 

2.0000-01 

22.25 

AUTO  INTR-  H- 
STG  LOSS  COEFF 

0.  8.0367-05 
0.  8.0670-05 
0.  8.0968-05 
0.  8.1260-05 
0.  8.1547-05 
0.  8.1830-05 
0.  8.2108-05 
0.  8.2381-05 
0.  8.2650-05 
0.  8.2915-05 


F- 

MASS 

COEFF 

VELOCITY 

6.6851-03 

9.2408-02 

6.6987-03 

9.2408-02 

6.7121-03 

9.2408-02 

6.7254-03 

9.2408-02 

6.7385-03 

9.2408-02 

6.7514-03 

9.2408-02 

6.7642-03 

9.2408-02 

6.7769-03 

9.2408-02 

6.7894-03 

9.2408-02 

6.8017-03 

9.2408-02 

RECTANGULAR 


RECTANGULAR 


*  *  *  GENERAL  FLOW  PASSAGE  (  ANP  663)  «  *  * 

INPUT  UNITS  ARE  INCHES,  SQ.  IN.,  PSIA,  DEG  F,  6TU/SEC,  LBM/SEC. 

CASE  30  ORIGINAL  GEOMETRICAL  INPUT  DATA 

TOTAL  LENGTH  =  0.  CROSS  SECTION  IS  RECTANGULAR 


WIOTH  HEIGHT 


STGE  X/L 

1  0. 

2  0. 

3  0. 

4  0. 

5  0. 

6  0. 

7  0. 

8  0. 

9  0. 

10  0. 


LENGTH 

3.0000+00 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 


2.0000-01 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 


2.5000-01 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 


RECTANGULAR 


7/ 


RECTANGULAR 


*  *  *  GENERAL  FLOW  PASSAGE  ( ANP  663)  *  *  * 

INPUT  UNITS  ARE  INCHES,  SQ.  IN.,  PSIA,  DEG  F,  BTU/SEC,  LBM/SEC. 


CASE 

30 

PROCESSED 

GEOMETRICAL 

INPUT  AND  F-  AND 

H-MULT I PLIERS 

TOTAL 

LENGTH  = 

3.0000+01 

CROSS  SECTION 

IS  ROUND 

HYDR. 

FLOW 

H- 

F- 

STGE 

X/L 

LENGTH 

DIAM 

AREA 

MULT 

MULT 

1 

O.LOOO 

3.00000+00 

2.22222- 01 

5.00000-02 

1.0000 

1.0000 

2 

0.2000 

3.00000+00 

2.22222-01 

5.00000-02 

1.0000 

1.0000 

3 

0.3000 

3.00000+00 

2.22222-01 

5.00000-02 

1.0000 

1.0000 

4 

0.4000 

3.00000+00 

2.22222- 01 

5.00000-02 

1.0000 

1.0000 

5 

0.5000 

3.00000+00 

2.22 222-01 

5.00000-02 

1.0000 

1.0000 

6 

0.6000 

3.00000+00 

2.22222- 01 

5.00000-02 

1.0000 

1.0000 

7 

0.7000 

3.00000+00 

2.22222-01 

5.00000-02 

1.0000 

1.0000 

8 

0.8000 

3.00000+00 

2.22222- 01 

5.00000-02 

1.0000 

1.0000 

9 

0.9000 

3.00000+00 

2.22222-01 

5.00000-02 

1.0000 

1.0000 

10 

1.0000 

3.00000+00 

2.22222-01 

5.00000-02 

1.0000 

1.0000 

RECTANGULAR 


75 


RECTANGULAR 


*  •  *  GENERAL  FLOW  PASSAGE  l ANP  663)  *  *  * 

INPUT  UNITS  ARE  INCHES,  SQ.  IN.,  PSIA,  DEG  F,  BTU/SEC,  LBM/SEC 


CASE 


30  POWER  PROFILE  AND  INTERSTAGE  LOSS  INPUT 


STGE 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 


AUTOLOSS  CALC  =  0. 

INTENDED  ENTRANCE  LENGTH  EFFECT  =  0. 


BETA1  = 

0. 

BETA2 

=  0. 

INTRSTGE 

AUTO  LOSS 

LOSS  COF 

MULT 

PHI  SUM 

PHIEX 

0. 

1.0000 

0.1000 

1.0000 

0. 

0. 

1.0000 

0.2000 

1.0000 

0. 

0. 

1.0000 

0.3000 

1.0000 

0. 

0. 

1.0000 

0.4000 

1.0000 

0. 

0. 

1.0000 

0.5000 

1.0000 

0. 

0. 

1.0000 

0.6000 

1.0000 

0. 

0. 

1.0000 

0.7000 

1.0000 

0. 

0. 

1.0000 

0.8000 

1.0000 

0. 

0. 

1.0000 

0.9000 

1.0000 

0. 

0. 

1.0000 

1.0000 

1.0000 

0. 

PI 


0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 


0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 


RECTANGULAR 


P2 


7-3 


RECTANGULAR 


*  *  *  GENERAL  FLOW  PASSAGE  ( ANP  663 )  *  *  * 

INPUT  UNITS  ARE  INCHES,  SQ.  IN.,  PSIA,  DEG  F,  BTU/SEC,  LBM/SEC. 

CASE  30  FLOW  INPUT  DATA  (GAS  IS  AIR  ,  NO  1.) 

*  *  *  WILL  EXECUTE  OPTION  NO  1 l  *  *  * 


FRICTION  FACT  AND  HEAT  TRANSFER  CORRELATION  FORMS 
N(NUS )=A* INI PR)**B)*(N(RE)*+C) 

F=D* { N{ RE) **E ) 

NUMERICAL  VALUES  (L  FOR  LAMINAR,  T  FOR  TURBULENT) 

AL=  4.230+00,  BL=  0.  ,  CL=  0. 

AT=  2.050-02,  BT-  4.000-01,  CT=  8.000-01 

DL=  1. 600+01,  EL=  -1.000+00,  DT=  4.600-02,  ET= 


2.000-01 


BULK  TEMP  FOR  HEAT  TRANSFER  CORRELATION! 0=N0,  1=YES) 
LAMINAR  =  0  TURBULENT  =  0 


TRANSITION  RANGE  FOR  N(NU)  2.0000+03  TO  8.0000+03 
TRANSITION  FOR  FRICTION  AT  2.3000+03 


TOTAL 

STATIC 

TOTAL 

PRESS 

PRESS 

TEMP 

INLET 

2.34500+01 

91.00 

EXIT 

0. 

0. 

500.00 

EX/IN 

0. 

0. 

PSEX/PTIN  = 

0. 

WE  IGHT 

cLOW  = 

10.00000-03 

HEAT 

RELEASE  = 

QBAR  = 

0. 

Q/QBAR  = 

0. 

MAX 

WALL  TEMP 

=  0.  AT 

STAGE  NO  0 

4.77150+00 


ACCURACIES  (FRACTIONAL  UNLESS  NOTED) 

PRESS  MACH  NO  WALL  TEMP (DEG ) 

10.000-05  10.000-05  0.05 

COUNTER  LIMITS  ON  ITERATIONS 
OPTION  ITERATION  =  15 

CHOKES/WT  FLOW  =  10  CHOKES/CASE  =  30 
STAGE  PRESS  AND  WALL  TEMP  =  40 


***** 

*  CALCULATION  TERMINATED  BY  TYPE  160  ERROR  AT  LOC  l  *  *  * 

*  *  *  #  * 


RECTANGULAR 


RECJ ANGULAR 


•  *  *  GENERAL  FLOW  PASSAGE  t ANP  663)  *  *  * 

OUTPUT  UNITS  ARE  INCHES,  SQ.  IN.,  PSIA,  DEG  F,  BTU/SEC,  LBM/SEC. 

t***#ttt****»t*»*»«* 

*  CHOKE  OCURRED  IN  STAGE  6.  IGNORE  * 

*  ALL  RESULTS  THERE  AND  DOWNSTREAM.  * 

******************** 

CASE  30  FLOW  AND  TEMPERATURE  RESULTS  (GAS  IS  AIR  ,  NO  1) 


WEIGHT  FLOW  =  10.00000-03  MAX  AVE  WALL  TEMP  =  2878.05  AT  STAGE  10 


HEAT 

ADDITION  = 

4.7715+00 

TOTAL 

PRESS 

STATIC 

PRESS 

TOTAL  DYNAMIC  MACH 

TEMP  PRESS  NO 

REYNOLDS 

NO 

INLET 

EXIT 

IN-EX 

RATIO 

23.450 
22.305 
1. 1453+00 
0.95116 

22.254 

91.0  7.9912-01  0.2245  3.50175+03 

1911.3  2.0000-01  0.1134  1.63399+04 

-1820. 31 

4.3037  PSEX/PTIN  =  0.94900 

ENTRANCE  AND  EXIT 

LOSSES 

LOSS  COEFF 

P-TOT  LOSS 

TOT  PRESS 

INLET 

7.5000-01 

5.9934-01 

22.851 ( AFTER ) 

EXIT 

7.5000-01 

1.5000-01 

22.4551  BEFORE ) 

CASE 

30  STAGE-BY-STAGE 

OUTPUT  RESULTS 

EXIT 

INTRSTGE 

EXIT 

EXIT 

EXIT 

AVE 

STGE 

P-TOT 

P-TO  LOSS 

T-TOT 

T-WALL 

MACH  NO 

REYN  NO 

1 

22.22 

0. 

288.2 

1875.9 

0.2815 

3.73517+04 

2 

21.44 

0. 

482.4 

1876. 3 

0.3349 

3.09774+04 

3 

20.46 

0. 

672.9 

1945.8 

0.3964 

2.68618+04 

4 

19.21 

0. 

859.7 

2049.3 

0.4758 

2.39958+04 

5 

17.52 

0. 

1042.7 

2170.9 

0.6031 

2.18390+04 

6 

15.59 

0. 

1222.3 

2302.4 

1.0159 

2.02744+04 

7 

22.73 

0. 

1398.6 

2439.1 

0.1098 

1.89951+04 

8 

22.64 

0. 

1571.9 

2583.0 

0.1110 

1.79526+04 

9 

22.55 

0. 

1742.7 

2729.7 

0.1122 

1.70823+04 

10 

22.45 

0. 

1911.3 

2878.1 

0.1134 

1.63399+04 

RECTANGULAR 


RECTANGULAR 


*  *  *  GENERAL  FLOW  PASSAGE  I ANP  663)  *  *  * 

OUTPUT  UNITS  ARE  INCHES,  SQ.  IN.,  PSIA,  DEG  F,  BTU/SEC,  LBM/SEC. 


CASE  30  MISCELLANEOUS  STAGE-BY-STAGE  OUTPUT 


EXIT 

EXIT 

STGE 

P-DYN 

P-STAT 

1 

1.1615+00 

21.04 

2 

1.5412+00 

19.85 

3 

1.9846+00 

18.39 

4 

2.5454+00 

16.52 

5 

3.3927+00 

13.81 

6 

1.8680-01 

8.24 

7 

1.9004-01 

22.55 

8 

1.9332-01 

22.46 

9 

1.9664-01 

22.36 

10 

2.0000-01 

22.27 

AUTO  INTR-  H- 
STG  LOSS  COEFF 

0.  1.1131-04 
0.  1.2678-04 
0.  1.3883-04 
0.  1.4855-04 
0.  1.5665-04 
0.  1.6361-04 
0.  1.6984-04 
0.  1.7479-04 
0.  1.7905-04 
0.  1.8280-04 


F- 

MASS 

COEFF 

VELOCITY 

5.6014-03 

2.0000-01 

5.8150-03 

2.0000-01 

5.9832-03 

2. 0000-01 

6.1197-03 

2.0000-01 

6.2332-03 

2.0000-01 

6.3295-03 

2.0000-01 

0. 

2.0000-01 

0. 

2.0000-01 

0. 

2.0000-01 

0. 

2.0000-01 

RECTANGULAR 

7£ 


RECTANGULAR 


*  *  *  GENERAL  FLOW  PASSAGE  ( ANP  663)  *  *  * 

INPUT  UNITS  ARE  INCHES,  SQ.  IN.,  PSIA,  DEG  F,  8TU/SEC,  LBM/SEC. 

CASE  32  ORIGINAL  GEOMETRICAL  INPUT  DATA 

TOTAL  LENGTH  =  0.  CROSS  SECTION  IS  RECTANGULAR 


LENGTH  WIDTH  HEIGHT 


STGE  X/L 

1  0. 

2  0. 

3  0. 

4  0. 

5  0. 

6  0. 

7  0. 

8  0. 

9  0. 

10  0. 


3.0000+00 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 


2.0000-01 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 


2.5000-01 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 


RECTANGULAR 


RECTANGULAR 


*  *  *  GENERAL  FLOW  PASSAGE  l ANP  663)  *  *  * 

INPUT  UNITS  ARE  INCHES*  SQ.  IN.*  PS1A*  DEG  F*  BTU/SEC*  LBM/SEC. 

CASE  32  PROCESSED  GEOMETRICAL  INPUT  AND  F-  AND  H-MULT I PLI ERS 

TOTAL  LENGTH  =  3.0000+01  CROSS  SECTION  IS  ROUND 

HYOR.  FLOW  H-  F- 

STGE  X/L  LENGTH  DIAM  AREA  MULT  MULT 


1  0. 1000  3.00000+00  2.22222-01  5.00000-02  1.0000  1.0000 

2  0.2000  3.00000+00  2.22222-01  5.00000-02  1.0000  1.0000 

3  0.3000  3.00000+00  2.22222-01  5.00000-02  1.0000  1.0000 

4  0.4000  3.00000+00  2.22222-01  5.00000-02  1.0000  1.0000 

5  0.5000  3.00000+00  2.222 22-01  5.00000-02  1.0000  1.0000 

6  0.6000  3.00000+00 2.22222-01  5.00000-02  1.0000  1.0000 
7  0.7000  3.00000+00  2.22222-01  5.00000-02  1.0000  1.0000 

8  0.8000  3.00000+00  2.22222-01  5.00000-02  1.0000  1.0000 

9  0.9000  3.00000+00  2.22222-01  5.00000-02  1.0000  1.0000 

10  1.0000  3.00000+00  2.22222-01  5.00000-02  1.0000  1.0000 


RECTANGULAR 


7i 


RECTANGULAR 


*  *  *  GENERAL  FLOW  PASSAGE  l ANP  663)  *  *  * 

.INPUT  UNITS  ARE  INCHES »  SQ.  IN.,  PSIA,  DEG  F,  BTU/SEC,  LBM/SEC 


CASE 

32 

POWER  PROFILE 

AND  INTERSTAGE 

LOSS 

INPUT 

AUTOLOSS 

CALC  =  0. 

INTENDED 

ENTRANCE  LENGTH  EFFECT 

=  0. 

BETA1  = 

-  0. 

BETA2  = 

0. 

INTRSTGE 

AUTO  LOSS 

iTGE 

LOSS  COF 

MULT 

PHI  SUM 

PHIEX 

PO 

PI 

1 

0. 

1.0000 

0.1000 

1.0000 

0. 

0. 

0. 

2 

0. 

1.0000 

0.2000 

1.0000 

0. 

0. 

0. 

3 

0. 

1.0000 

0.3000 

1.0000 

0. 

0. 

0. 

4 

0. 

1.0000 

0.4000  .. 

1.0000 

0. 

0. 

0. 

5 

0. 

1.0000 

0.5000 

1.0000 

0. 

0. 

0. 

6 

0. 

1.0000 

0.6000 

1.0000 

0. 

0. 

0. 

7 

0. 

1.0000 

0.7000 

1.0000 

0. 

0. 

0. 

B 

0. 

1.0000 

0.8000 

1.0000 

0. 

0. 

0. 

9 

0. 

1.0000 

0.9000 

1.0000 

0. 

0. 

0. 

10 

0. 

1.0000 

1.0000 

1.0000 

0. 

0. 

0. 

RECTANGULAR 


RECiT  ANGULAR 


*  *  *  GENERAL  FLOW  PASSAGE  ( ANP  663)  *  *  * 

INPUT  UNITS  ARE  INCHES*  SQ.  IN.*  PSIA,  DEG  F,  BTU/SEC*  LBM/SEC. 

CASE  32  FLOW  INPUT  DATA  (GAS  IS  AIR  » NO  1.) 

*  *  *  WILL  EXECUTE  OPTION  NO  II  *  *  * 


FRICTION  FACT  AND  HEAT  TRANSFER  CORRELATION  FORMS 
N(NUS)=A»(N(PR)**B) *(N( RE)**C) 

F=D  * ( N { RE ) **E ) 

NUMERICAL  VALUES  (L  FOR  LAMINAR,  T  FOR  TURBULENT) 


AL  = 

4.230+00, 

BL  = 

0  •  • 

CL= 

0. 

AT= 

2m 050—02  * 

BT= 

4.000-01, 

CT= 

8.000-01 

DL= 

1.600+01, 

EL= 

-1.000+00, 

DT= 

4.600-02,  ET= 

BULK  TEMP  FOR  HEAT  TRANSFER  CORREL ATI  ONI 0=N0,  1=YES) 
LAMINAR  =  0  TURBULENT  =  0 

TRANSITION  RANGE  FOR  N(NU)  2.0000+03  TO  8.0000+03 
TRANSITION  FOR  FRICTION  AT  2.3000+03 


INLET 
EXIT 
EX/ IN 


TOTAL 

PRESS 

2.34500+01 

0. 

0. 


PSEX/PT IN  = 
WEIGHT  FLOW  = 
QBAR  =  0. 


STATIC  TOTAL 

PRESS  TEMP 

91.00 

0.  500.00 

0. 

0. 

5.00000-03  HEAT  RELEASE  = 
Q/OBAR  -  0. 


MAX  WALL  TEMP  = 


0.  AT  STAGE  NO 


4.77150+00 


ACCURACIES  (FRACTIONAL  UNLESS  NOTED) 

PRESS  MACH  NO  WALL  TEMPI  DEG) 

10.000-05  10.000-05  0.05 

COUNTER  LIMITS  ON  ITERATIONS 
OPTION  ITERATION  =  15 

CHOKES/WT  FLOW  =  10  CHOKES/CASE  =  30 
STAGE  PRESS  AND  WALL  TEMP  =  40 


RECTANGULAR 


RECTANGULAR 


*  *  *  GENERAL  FLOW  PASSAGE  I ANP  663)  *  *  * 

OUTPUT  UNITS  ARE  INCHES*  SQ.  IN.*  PSIA,  DEG  F,  BTU/SEC*  LBM/SEC. 

CASE  32  FLOW  AND  TEMPERATURE  RESULTS  EGAS  IS  AIR  ,  NU U 

WEIGHT  FLOW  -  5.00000-03  MAX  AVE  WALL  TEMP  »  3617.09  AT  STAGE  5 

HEAT  ADDITION  =  4.7715+00 

TOTAL  STATIC  TOTAL  DYNAMIC  MACH  REYNOLDS 

PRESS  PRESS  TEMP  PRESS  NO  NO 

INLET  23.450  91.0  1.9601-01  0.1097  1.75088+0 

EXIT  15.719  15.070  3531.6  2.1258+00  0.4645  7.13752+0 

IN-EX  7.7314+00  -3440.58 

RATIO  0.67030  7.2442  PSEX/PTIN  =  0.64263 


ENTRANCE  AND  EXIT  LOSSES 

LOSS  COEFF  P-TOT  LOSS  TOT  PRESS 
INLET  7.5000-01  1.4701-01  23. 303 l AFTER ) 

EXIT  7.5000-01  1.5943+00  17. 313 1  BEFORE ) 


CASE 


STGE 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 


32  STAGE-BY-STAGE  OUTPUT  RESULTS 


EXIT  INTRSTGE 

P-TOT  P-TO  LOSS 

23.06  0. 

22.76  0. 

22.40  0. 

21.97  0. 

21.46  0. 

20.86  0. 

20.17  0. 

19. 3 7  0. 

18.43  0. 

17.31  0. 


EXIT 

EXIT 

EXIT 

AVE 

T-TOT 

T-WALL 

MACH  NO 

REYN  NO 

482.4 

3247.3 

0.1476 

1.69098+04 

859.7 

3157.8 

0.1795 

1.26660+04 

1222.3 

3280.8 

0.2089 

1.05217+04 

1571.9 

3455.3 

0.2370 

9.22771+03 

1911.3 

3617.1 

0.2651 

8.35045+03 

2243.1 

1842.4 

0.2945 

7.70127+03 

2569.6 

1979.1 

0.3266 

7.18544+03 

2892.6 

2123.0 

0.3630 

7.13752+03 

3213.2 

2269.7 

0.4070 

7.13752+03 

3531.6 

2418.1 

0.4645 

7.13752+03 

RECTANGULAR 


rr> 


RECTANGULAR 


*  *  *  GENERAL  FLOW  PASSAGE  ( ANP  663)  *  *  * 

OUTPUT  UNITS  ARE  INCHES,  SO.  IN.,  PSIA,  OEG  F,  BTU/SEC,  LBM/SEC. 


CASE  32  MISCELLANEOUS  STAGE-BY-STAGE  OUTPUT 


EXIT 

EXIT 

AUTO 

INTR- 

H- 

F- 

MASS 

STGE 

P-OYN 

P-STAT 

STG 

LOSS 

COEFF 

COEFF 

VELOCITY 

1 

3*4251-01 

22.72 

0. 

6.3915-^05 

6.5634-03 

10.0000-02 

2 

4.8849-01 

22.27 

0. 

7.6898-05 

6.9539-03 

10.0000-02 

3 

6.;3641-01 

21.76 

0. 

8.5847-05 

7.2167-03 

10.0000-02 

4 

7.8874-01 

21.17 

0. 

9.3831-05 

7.4086-03 

10.0000-02 

5 

9.4890-01 

20.49 

0. 

1.0360-04 

7.5582-03 

10.0000-02 

6 

1.1215+00 

19.72 

0. 

0. 

7.6815-03 

10.0000-02 

7 

1.3130+00 

18.82 

0. 

0. 

7.7887^03 

10.0000-02 

8 

1.5319+00 

17.79 

0. 

0. 

7.7992-03 

10.0000-02 

9 

1.7933+00 

16.56 

0. 

0. 

7.7992-03 

10.0000-02 

10 

2J1258+00 

15.07 

0. 

0. 

7.7992-03 

10.0000-02 

ELLIPTICAL 


ELL1 PTICAL 


*  *  »  GENERAL  FLOW  PASSAGE  (  ANP  663)  *  *  * 

INPUT  UNITS  ARE  INCHES*  SQ.  IN.,  PSIA,  DEG  F,  BTU/SEC*  LBM/SEC. 


CASE 

34 

ORIGINAL 

GEOMETRICAL 

INPUT  DATA 

TOTAL 

LENGTH  = 

0. 

CROSS  SECTION  IS  ELLIPTICAL 

MAJOR 

MINOR 

STGE 

X/L 

LENGTH 

AX  I  S 

AXIS 

1 

0. 

3.0000+00 

6.0000-01 

4.0000-01 

2 

0. 

0. 

0. 

0. 

3 

0. 

0. 

0. 

0. 

4 

0. 

0. 

0. 

0. 

5 

0. 

0. 

0. 

0. 

6 

0. 

0. 

0. 

0. 

7 

0. 

0. 

0. 

0. 

8 

0. 

0. 

0. 

0. 

9 

0. 

0. 

0. 

0. 

10 

0. 

0. 

0. 

0. 

ELLIPTICAL 


ELLIPTICAL 


*  *  *  GENERAL  FLOW  PASSAGE  ( ANP  663)  *  *  * 

INPUT  UNITS  ARE  INCHESt  SQ.  IN.»  PSIA,  DEG  F»  BTU/SEC*  LBM/SEC. 

CASE  34  PROCESSED  GEOMETRICAL  INPUT  ANO  F-  AND  H-MULTI PL  I ERS 

TOTAL  LENGTH  =  3.0000+01  CROSS  SECTION  IS  RECTANGULAR 

HYDR.  FLOW  H-  F- 

STGE  X/L  LENGTH  DIAM  AREA  MULT  MULT 

1  0.1.000  3.00000+00  4.70679-01  1.88496-01  1.0000  1.0000 

2  0.2000  3.00000+00  4.70679-01  1.88496-01  1.0000  1.0000 

3  0.3000  3.00000+00  4.70679-01  1.88496-01  1.0000  1.0000 

4  0.4000  3.00000+00  4.70679-01  1.88496-01  1.0000  1.0000 

5  0.5000  3.00000+00  4.70679-01  1.88496-01  1.0000  1.0000 

6  0.6000  3.00000+00  4.70679-01  1.88496-01  1.0000  1.0000 

7  0.7000  3.00000+00  4.70679-01  1.88496-01  1.0000  1.0000 

8  0.8000  3.00000+00  4.70679-01  1.88496-01  1.0000  1.0000 

9  0.9000  3.00000+00  4.70679-01  1.88496-01  1.0000  1.0000 

10  1.0000  3.00000+00  4.70679-01  1.88496-01  1.0000  1.0000 


ELLIPTICAL 


// 


ELL  I PTLCAL 


*  - 

*  *  GENERAL  FLOW  PASSAGE  t ANP 

663) 

ft  •  • 

INPUT  UNITS 

ARE  INCHES, 

SQ.  IN., 

PSIA, 

DEG 

F,  BTU/SEC, 

LBM/SEC 

CASE 

34 

POWER  PROFILE 

AND  INTERSTAGE 

LOSS 

INPUT 

AUTOLOSS 

CALC  =  0. 

I NTENOEO 

ENTRANCE  LENGTH  EFFECT 

=  0. 

BETA! 

=  0. 

BETA2  = 

0. 

INTRSTGE 

AUTO  LOSS 

STGE 

LOSS  COF 

MULT 

PHI  SUM 

PHIEX 

PO 

PI 

1 

0. 

1.0000 

0.1000 

1.0000 

0. 

0. 

0. 

2 

0. 

1.0000 

0.2000 

1.0000 

0. 

0. 

0. 

3 

0. 

1.0000 

0.3000 

1.0000 

0. 

0. 

0. 

4 

0. 

1.0000 

0.4000 

UOOOO 

0. 

0. 

. . _0. 

5 

0. 

1.0000 

0.5000 

1.0000 

0. 

0. 

0. 

6 

0. 

1.0000 

0.6000 

1.0000 

0. 

0. 

0. 

7 

0. 

1.0000 

0.7000 

1.0000 

0. 

0. 

0. 

8 

0. 

1.0000 

0.8000 

1.0000 

0. 

0. 

0. 

9 

0. 

1.0000 

0.9000 

1.0000 

0. 

0. 

0. 

10 

0. 

1.0000 

1.0000 

1.0000 

0. 

0. 

. _....  . . 0* 

ELLIPTICAL 


ELLIPTICAL 


*  #  *  GENERAL  FLOW  PASSAGE  I ANP  663)  *  *  * 

INPUT  UNITS  ARE  INCHES*  SQ.  IN.,  PSIA»  DEG  F»  BTU/SEC,  LBM/SEC. 

34  FLOW  INPUT  DATA  I  GAS  IS . Alii  -*NO  !•)  - - - 

•  #  *  WILL  EXECUTE  OPTION  NO  11  *  *  * 


FRICTION  FACT  AND  HEAT  TRANSFER  CORRELATION  FORMS 

NtNUS)=A*(NIPR)**B)*(NIRE)**Cl 
F=D» ( Nl RE )**E) 

NUMERICAL  VALUES  I L  FOR  LAMINAR*.  I  FOR- TURBULENT! ■—  -- 

AL=  4.230+00,  BL=  0.  »  CL=  0. 

AT=  2.050—02,  BT=  4.000—01*  CT=  8.000-01 

DL=  1.600+01,  EL=  -1.000+00,  DT=  4.600-02,  ET=  -2.000-01 

BULK  TEMP  FOR  HEAT  TRANSFER  CORREL ATI  ONI 0=N0,  1=YES) 

LAMINAR  =  0  TURBULENT  »  0  -  - . . - - - 

TRANSITION  RANGE  FOR  NINU)  2.4760+03  TO  8.0000+03  - 
TRANSITION  FOR  FRICTION  AT  2.3000+03 


TOTAL  STATIC  TOTAL 

PRESS  PRESS  - — TEMP  . . -  - 

INLET  2.34500+01  91.00 

£X IT  0.  0.  —  500.00  - -- -  - — 

EX/IN  0.  0. 

PSEX/PTIN  =0. 

WEIGHT  FLOW  =  4.78042-02  HEAT  RELEASE  =  4.77150+00 

QBAR  -  0.  Q/QBAR  -  0.  . -  - 

MAX  WALL  TEMP  =  0.  AT  STAGE  NO  0 


ACCURACIES  t FRACTIONAL  UNLESS  NOTED) 

PRESS  MACH  NO  WALL  TEMP(DEG) 

10.000-05  10.000-05  0.05  . 

COUNTER  LIMITS  ON  ITERATIONS 
OPTION  ITERATION  =15 

CHOKES/WT  FLOW  =  10  CHOKES/CASE  =  30 
STAGE  PRESS  AND  WALL  TEMP  =  40 


ELLIPTICAL 


ELLIPTICAL- 


»  *  *  GENERAL  FLOW  PASSAGE  (ANP  663}  *  *  * 

OUTPUT  UNITS  ARE  INCHES*  SQ.  IN.,  PSIA,  OEG  F,  8TU/SEC,  LBM/SEC. 

C-ARF . . . 14 . -FLOW  AND  . TEMPERATURE- RESULTS  i GAS  IS  AIR  »  -NO  11- 

-  WEIGHT  FLOW  *  4.78042-02  MAX  AVE  WALL  TEMP  -  1184.02  AT  STAGE  1C 

HEAT  ADDITION  =  4.7715+00 

TOTAL  STATIC  TOTAL  DYNAMIC  MACH  REYNOLD? 

. . . . PRESS _ _ PRE-SS . TEMP  . .  -  PRESS  NO  - . NO 

INLET  23.450  91.0  1.3067+00  0.2905  9.40496+0. 

EXIT  15.685  14.579  500.0  3.3044+00  0.5725  7.72461+04 

IN-EX  7.7653+00  .  -409.02 

RATIO  0.66886  1.7423  PSEX/PTIN  =  0.62169 


ENTRANCE  AND  EXIT  LOSSES 

LOSS  COEFF  P-TOT  LOSS  TOT  PRESS 


INLET 

7.5000-01 

9.7999-01 

22. 

4701  AFTER) 

EXIT 

7.5000-01 

2.4783+00 

18. 

1631  BEFORE) 

CASE 

34  STAGE 

-BY-STAGE 

OUTPUT  RESULTS 

EXIT 

INTRSTGE 

EXIT 

EXIT 

EXIT 

AVE 

STGE 

P-TOT  P 

-TO  LOSS 

T-TOT 

T-WALL 

MACH  NO 

REYN  NO 

1 

22.18 

0. 

132.5 

1006.4 

0.3222 

1.09916+05 

2 

21.87 

0. 

173.8 

1014.2 

0.3406 

1.04550+05 

3 

21.54 

0. 

215.1 

1026.6 

0.3600 

9.97860+04 

4 

21.17 

0. 

256.2 

1042.6 

0.3807 

9.55291+04 

5 

20.78 

0. 

297.2 

1061.5 

0.4032 

9.17041+04 

6 _ 

20.35 

0.  .... 

338.  L 

1082.7 

0.4279 

8.82.494+04 

7 

19.89 

0. 

378.8 

1105.9 

0.4557 

8.51147+04 

8 

19.37 

0. 

419.4 

1130.7 

0.4875 

8.22582+04 

9 

18.80 

0. 

459.8 

1156.8 

0.5253 

7.96451+04 

10 

18.16 

0. 

500.0 

1184.0 

0.5725 

7.72461+04 

ELLIPTICAL 


ELLIPTICAL 


*  *  *  GENERAL  FLOW  PASSAGE  1 ANP  663)  »  *  * 

OUTPUT  UNI T S  ARE  INCHES,  SQ.  IN.,  PSIA,  OEG  F,  BTU/SEC,  LBM/SEC. 


CASE  34  MISCELLANEOUS  STAGE-BY-STAGE  OUTPUT 


EXIT 

EXIT 

AUTO 

INTR- 

H- 

F- 

MASS 

STGE 

P-OYN 

P-STAT 

STG 

LOSS 

COEFF 

COEFF 

VELOCITY 

1 

1.4996+00 

20.64 

0. 

1.1361-04 

4.5138-03 

2.5361-01 

2 

1.6368+00 

20.19 

0. 

1.1815-04 

4.5592-03 

2.5361-01 

3 

1.7823+00 

19.69 

0. 

1.2236-04 

4.6020-03 

2.5361-01 

4 

1.9377+00 

19.16 

0. 

1.2626-04 

4.6423-03 

2.5361-01 

5 

2.1053+00 

18.59 

0. 

1.2991-04 

4.6804-03 

2.5361-01 

6 

2.2881+00 

17.96 

0. 

1.3333-04 

4.7165-03 

2.5361-01 

7 

2.4905+00 

17.26 

0. 

1.3654-04 

4.7507-03 

2.5361-01 

8 

2.7190+00 

16.49 

0. 

1.3957-04 

4.7832-03 

2.5361-01 

9 

2.9840+00 

15.61 

0. 

1.4244-04 

4.8142-03 

2.5361-01 

10 

3.3044+00 

14.58 

0. 

1.4516-04 

4.8438-03 

2.5361-01 

INTERSTAGE  LOSSES 


INTERSTAGE  LOSSES 


»  *  *  GENERAL  FLOW  PASSAGE  I ANP  663)  *  *  * 

INPUT  UNITS  ARE  INCHES#  SQ.  IN.#  PSIA,  DEG  F#  BTU/SEC#  LBM/SEC 


CASE 


36  ORIGINAL  GEOMETRICAL  INPUT  DATA 

TOTAL  LENGTH  =  0.  CROSS  SECTION  IS  ROUND 


STGE 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 


X/L 


0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 


LENGTH 

3,0000+00 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 


HYDR. 

DIAM 

5.0000-01 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 


FLOW 

AREA 


0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 


INTERSTAGE  LOSSES 


INTERSTAGE  LOSSES 


*  »  *  GENERAL  FLOW  PASSAGE  ( ANP  663)  «  *  * 

INPUT  UNITS  ARE  INCHES,  SQ.  IN.,  PSIA,  OEG  F,  8TU/SEC,  LBM/SEC. 

CASE  36  PROCESSED  GEOMETRICAL  INPUT  AND  F-  AND  H-MULTI PL  I ERS 

TOTAL  LENGTH  =  3.0000+01  CROSS  SECTION  IS  GENERAL 

HYDR.  FLOW  H-  F- 

STGE  X/L  LENGTH  DIAM  AREA  MULT  MULT 


1  0.1000  3.00000+00  5.00000-01  1.96350-01  1.0000  1.0000 

2  0.2000  3.00000+00  5.00000-01  1.96350-01  1.0000  1.0000 

3  0.3000  3.00000+00  5.00000-01  1.96350-01  1.0000  1.0000 

4  0.4000  3.00000+00  5.00000-01  1.96350-01  1.0000  1.0000 

5  0.5000  3.00000+00  5.00000-01  1.96350-01  1.0000  1.0000 

6  0.6000  3.00000+00  5.00000-01  1.96350-01  1.0000  1.0000 

7  0.7000  3.00000+00  5.00000-01  1.96350-01  1.0000  1.0000 

8  0.8000  3.00000+00  5.00000-01  1.96350-01  1.0000  1.0000 

9  0.9000  3.00000+00  5.00000-01  1.96350-01  I. 0000  1.0000 

10  1.0000  3.00000+00  5.00000-01  1.96350-01  1.0000  1.0000 


INTERSTAGE  LOSSES 


INTERSTAGE  LOSSES 


*  *  *  GENERAL  FLOW  PASSAGE  l ANP  663)  *  *  * 

INPUT  UNITS  ARE  INCHES,  SQ.  IN.,  PSIA,  DEG  F,  BTU/SEC, 

CASE  36  POWER  PROFILE  AND  INTERSTAGE  LOSS  INPUT 


AUTOLOSS  CALC  =  0. 

INTENDED  ENTRANCE  LENGTH  EFFECT  =  0. 


BETA1  = 

0. 

BETA2 

*  0. 

INTRSTGE 

AUTO  LOSS 

STGE 

LOSS  COF 

MULT 

PHI  SUM 

PH  I  EX 

PO 

1 

0. 

1.0000 

0. 1000 

1.0000 

0. 

0. 

2 

0.5000 

1.0000 

0.2000 

1.0000 

0. 

0. 

3 

0.5000 

I. 0000 

0.3000 

1.0000 

0. 

0. 

4 

0. 

1.0000 

0.4000 

1.0000 

0. 

0. 

5 

0. 

1.0000 

0.5000 

1.0000 

0. 

0. 

6 

0. 

1.0000 

0.6000 

1.0000 

0. 

0. 

7 

0.7500 

1.0000 

0.7000 

1.0000 

0. 

0. 

8 

0.7500 

I. 0000 

0.8000 

1.0000 

0. 

0. 

9 

0.7500 

I. 0000 

0.9000 

1.0000 

0. 

0. 

10 

0. 

1.0000 

1.0000 

1.0000 

0. 

0. 

LBM/SEC. 


PI 


0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 


INTERSTAGE  LOSSES 


INTERSTAGE  LOSSES 


«  *  *  GENERAL  FLOW  PASSAGE  { ANP  663)  *  *  * 

INPUT  UNITS  ARE  INCHES*  SQ.  IN**  PSIA*  DEG  F»  BTU/SEC*  LBM/SEC* 

CASE  36  FLOW  INPUT  DATA  {GAS  IS  AIR  »NO  I.) 

•  *  *  WILL  EXECUTE  OPTION  NO  11  *  *  * 


FRICTION  FACT  AND  HEAT  TRANSFER  CORRELATION  FORMS 
N(NUS)-A*{NIPR)**B)*{N(RE)**C) 

F=D* { N l RE ) *»E) 

NUMERICAL  VALUES  (L  FOR  LAMINAR,  T  FOR  TURBULENT 

AL=  4.230+00,  6L=  0.  ,  CL=  0. 

AT=  2.050-02,  BT=  4.000-01,  CT=  8.000-01 

DL=  1.600+01,  EL=  -1.000+00,  DT=  4.600-02, 


ET= 


-2.00C-01 


BULK  TEMP  FOR  HEAT  TRANSFER  CORRELATIONIO=NO,  i=YES) 
LAMINAR  =  0  TURBULENT  =  0 


TRANSITION  RANGE  FOR  N{NU)  2.4760+03  TO  8.0000+03 
TRANSITION  FOR  FRICTION  AT  2.3000+03 


INLET 
EXIT 
EX/ IN 


TOTAL 

PRESS 

2.34500+01 

0. 

0. 


PSEX/PTIN  = 
WEIGHT  FLOW  = 
QBAR  =  0. 


STATIC  TOTAL 

PRESS  TEMP 

91.00 

0.  500.00 

0. 

0. 

3.00000-02  HEAT  RELEASE  = 
Q/QBAR  =  0. 


MAX  WALL  TEMP  = 


0. 


AT  STAGE  NO 


4.77150+00 


ACCURACIES  (FRACTIONAL  UNLESS  NOTED) 

PRESS  MACH  NO  WALL  TEMP(DEG) 

10.000-05  10.000-05  0.05 

COUNTER  LIMITS  ON  ITERATIONS 
OPTION  ITERATION  *  15 

CHOKES/WT  FLOW  =  10  CHOKES/CASE  =  30 
STAGE  PRESS  AND  WALL  TEMP  =  40 


INTERSTAGE  LOSSES 


U 


INTERSTAGE  LOSSES 


•  »  »  GENERAL  FLOW  PASSAGE  ( ANP  663)  *  *  • 

OUTPUT  UNITS  ARE  INCHES»  SQ.  IN. »  PSIA,  DEG  F»  BTU/SEC*  L8M/SEC. 

CASE  36  FLOW  AND  TEMPERATURE  RESULTS  (GAS  IS  AIR  ,  NO  1) 

WEIGHT  FLOW  =  3.00000-02  MAX  AVE  WALL  TEMP  =  1770.09  AT  STAGE  10 

HEAT  ADDITION  =  4.7715+00 

TOTAL  STATIC  TOTAL  DYNAMIC  MACH  REYNOLDS 

PRESS  PRESS  TEMP  PRESS  NO  NO 

23.450  91.0  4.6137-01  0.1693  6.01906+03 

17.372  17.000  735.6  1.3332+00  0.3385  4.27016+04 

6.0780+00  -644.59 

0.74081  2.1699  PSEX/PTIN  =  0.72495 


ENTRANCE  AND  EXIT  LOSSES 

LOSS  COEFF  P-TOT  LOSS  TOT  PRESS 
INLET  7.5000-01  3.4603-01  23. 104 {AFTER ) 

EXIT  7.5000-01  9.9987-01  1 8. 372 ( BEFORE ) 


AVE 

REYN  NO 

6.92835+04 

6.41813+04 

5.99230+04 

5.63182+04 

5.32294+04 

5.05549+04 

4.82180+04 

4.61593+04 

4.43328+04 

4.27016+04 


CASE  36  STAGE-BY-STAGE 

EXIT  INTRSTGE 

STGE  P-TOT  P-TO  LOSS 

1  22.99  0. 

2  22.86  0.29460 

3  22.43  0.32999 

4  21.95  0. 

5  21.78  0. 

6  21.61  0. 

7  21.43  0.70458 

8  20.52  0.78674 

9  19.51  0.88305 

10  18.37  0. 


OUTPUT  RESULTS 


EXIT 

EXIT 

EXIT 

T-TOT 

T-WALL 

MACH  NO 

157.0 

1685.7 

0.1834 

222.8 

1644.0 

0.1947 

288.2 

1625.2 

0.2086 

353.3 

1622.3 

0.2233 

418.0 

1631.0 

0.2347 

482.4 

1648. 3 

0.2462 

546.3 

1672. 1 

0.2578 

609.8 

1701.1 

0.2799 

672.9 

1734.0 

0.3061 

735.6 

1770.1 

0.3385 

INLET 

EXIT 

IN-EX 

RATIO 


INTERSTAGE  LOSSES 


INTERSTAGE  LOSSES 


*  *  *  GENERAL  FLOW  PASSAGE  ( ANP  663)  *  *  * 

OUTPUT  UNITS  ARE  INCHES,  SQ.  IN.,  PSIA,  OEG  F,  8TU/SEC,  L8M/SEC. 


CASE  36  MISCELLANEOUS  STAGE-BY-STAGE  OUTPUT 


EXIT 

EXIT 

AUTO 

INTR- 

H- 

F- 

MASS 

STGE 

P-DYN 

P-STAT 

STG 

LOSS 

COEFF 

COEFF 

VELOCITY 

1 

5.2841—01 

22.45 

0. 

6.6238-05 

4.9503-03 

1.5279-01 

2 

5.8921-01 

22.26 

0. 

7.1243-05 

5.0266-03 

1.5279-01 

3 

6.5997-01 

21.76 

0. 

7.5  736-05 

5.0961-03 

1.5279-01 

4 

7.3540-01 

21.20 

0. 

7.9794-05 

5.1597-03 

1.5279-01 

5 

8.0185-01 

20.97 

0. 

8.3479-05 

5.2183-03 

1.5279-01 

6 

8.6980-01 

20.73 

0. 

8.6846-05 

5.2724-03 

1.5279-0 i 

7 

9.3944-01 

20.48 

0. 

8.9937-05 

5.3225-03 

1.5279-01 

8 

1.0490+00 

19.45 

0. 

9.2787-05 

5.3692-03 

1.5279-01 

9 

1.1774+00 

18.31 

0. 

9.5425-05 

5.4127-03 

1.5279-01 

10 

1.3332+00 

17.00 

0. 

9.7877-05 

5.4534-03 

1.5279-01 

AUTO  INTERSTAGE  LOSSES 


AUTO  INTERSTAGE  LOSSES 


*  *  *  GENERAL  FLOW  PASSAGE  l ANP  663)  *  *  * 

INPUT  UNITS  ARE  INCHES*  SQ.  IN.,  PSIA,  DEG  F,  BTU/SEC*  LBM/SEC. 

CASE  38  ORIGINAL  GEOMETRICAL  INPUT  DATA 

TOTAL  LENGTH  •=  0.  CROSS  SECTION  IS  ROUND 

HYDR.  FLOW 

STGE  X/L  LENGTH  DIAM  AREA 


1  0.  3.0000+00  4.0000-01  0. 

2  0.  0.  0.  0. 

3  0.  0.  5.0000-01  0. 

4  0.  0.  0.  0. 

5  0.  0.  0.  0. 

6  0.  0.  0.  0. 

7  0.  0.  4.0000-01  0. 

8  0.  0.  0.  0. 

9  0.  0.  0.  0. 

10  0.  0.  0.  0. 


AUTO  INTERSTAGE  LOSSES 


AllTO  INTERSTAGE  LOSSES 


»  *  *  GENERAL  FLOW  PASSAGE  ( ANP  663)  *  *  * 

INPUT  UNITS  ARE  INCHES,  SQ.  IN.,  PSIA,  OEG  F,  BTU/SEC,  LBM/SEC. 

CASE  38  PROCESSED  GEOMETRICAL  INPUT  AND  F-  AND  H-MULT I  PL  I ERS 

TOTAL  LENGTH  =  3.0000+01  CROSS  SECTION  IS  GENERAL 


HYDR. 

FLOW 

H- 

F- 

STGE 

X/L 

LENGTH 

DIAM 

AREA 

MULT 

MULT 

1 

0.  1000 

3.00000+00 

4.00000-01 

1.25664-01 

1.0000 

1.0000 

2 

0.2000 

3.00000+00 

4.00000-01 

1.25664-01 

1.0000 

1.0000 

3 

0.3000 

3.00000+00 

5.00000-01 

1.96350-01 

1.0000 

1.0000 

A 

O.AOOO 

3.00000*00 

5.00000-01 

1.96350-01 

1.0000 

1.0000 

5 

0.5000 

3.00000+00 

5.00000-01 

1.96350-01 

1.0000 

1.0000 

6 

0.6000 

3.00000+00 

5.00000-01 

1.96350-01 

1.0000 

1.0000 

7 

0.7000 

3.00000+00 

4.00000-01 

1.25664-01 

1.0000 

1.0000 

8 

0.8000 

3.00000+00 

4.00000-01 

1.25664-01 

1.0000 

1.0000 

9 

0.9000 

3.00000+00 

4.00000-01 

1.25664-01 

1.0000 

1.0000 

10 

1.0000 

3.00000+00 

4.00000-01 

1.25664-01 

1.0000 

1.0000 

AUTO  INTERSTAGE  LOSSES 


u 


AUTO  INTERSTAGE  LOSSES 


»  *  *  GENERAL  FLOW  PASSAGE  ( ANP  663)  *  *  * 

INPUT  UNITS  ARE  INCHES  *  SQ.  IN.t  PSIA,  DEG  F»  BTU/SEC,  LBM/SEC 

CASE  3B  POWER  PROFILE  AND  INTERSTAGE  LOSS  INPUT 


AUTOLOSS  CALC  =  I. 

INTENDED  ENTRANCE  LENGTH  EFFECT  =  0. 


BETA1  = 

0. 

BETA2 

=  0. 

I NTRSTGE 

AUTO  LOSS 

... 

STGE 

LOSS  COF 

MULT 

PHI  SUM 

PHIEX 

PO 

PI 

l 

0. 

1.0000 

0.1000 

1.0000 

0. 

0. 

0. 

2 

0.5000 

1.0000 

0.2000 

1.0000 

0. 

0. 

0. 

3 

0.5000 

I. 0000 

0.3000 

1.0000 

0. 

0. 

0. 

4 

0. 

1.0000 

0.4000 

1.0000 

0. 

0. 

0. 

5 

0. 

1.0000 

0.5000 

1.0000 

0. 

0. 

0. 

6 

0. 

1.0000 

0.6000 

1.0000 

0. 

0. 

0. 

7 

0.7500 

1.0000 

0.7000 

1.0000 

0. 

0. 

0. 

8 

0.7500 

1.0000 

0.8000 

1.0000 

0. 

0. 

0. 

9 

0.7500 

I. 0000 

0.9000 

1.0000 

0. 

0. 

0. 

10 

0. 

1.0000 

1.0000 

1.0000 

0. 

0. 

0. 

AUTO  INTERSTAGE  LOSSES 


AUTO . INTERS! AGE  LOSSES 


*  *  *  GENERAL  FLOW  PASSAGE  CANP  663)  *  *  * 

OUTPUT  UNITS  ARE  INCHES,  SQ.  IN.,  PSIA,  DEG  F,  BTU/SEC*  LBM/SEC.  - . 

. CASE  - 38  . FLOW  AND  TEMPERATURE  RESULTS  (GAS  IS — AJLR _ *_NO U 

WEIGHT  FLOW  w  3.00000-02  MAX  AVE  WALL  TEMP  *  1648.26  AT  STAGE  . & 

HEAT  ADDITION  =  4.7715+00 

TOTAL  STATIC  TOTAL  DYNAMIC  MACH  REYNOLDS 

_ - . RRESiS _ -PRESS- . TEMP _ PRES  S NO _ HQ. 

INLET  23.450  91.0 1.1519+00  0.2718  7.52382+03 

EXIT  14.283  12.766  735.6  4.0753+00  0.6829  5.33770+04 

IN-EX  9.1667*00  -  -644.59 

RATIO  0.60909  2.1699  PSEX/PTIN  =  0.54438 


ENTRANCE  AND  EXIT  LOSSES 


LOSS  COEFF 

P-TOT  LOSS  TOT 

PRESS 

INLET 

7.5000-01 

8.6390-01 

22. 

5 86 {AFTER) 

. . .  . 

EXIT 

7.5000-01 

3.0565+00 

17. 

3401  BEFORE) 

CASE 

38  STAGE 

-BY-STAGE  1 

OUTPUT . RESULTS . - 

- . .  - 

. . . 

EXIT 

I.NTRSTGE 

EXIT 

EXIT 

EXIT 

. .  AVE . 

STGE 

P-TOT  P 

-TO  LOSS 

T-TOT 

T-WALL 

MACH  NO 

REYN  NO 

1 

22.24 

0. 

157.0 

1344.6 

0.3071 

8.66043+04 

2 

21.85 

0.20211 

222.8 

1336.0 

0.3321 

8.02266+04 

3 

21.50 

0. 

288.2 

1625.2 

0.2181 

5.99230+04 

4 

21.35 

0. 

353.3 

1622.3 

0.2300 

5.63182+04 _ 

5 

21.18 

0. 

418.0 

1631.0 

0.2419 

5.32294+04 

6 

21.01 

0.43397 . 

-482.4 

-1648.3 _ 

0.2539 _ 

-5.05549+04 _ 

7 

19.94 

0. 

546.3 

1449.9 

0.4747 

6.02725+04 

8 

19.22 

0. 

609.8 

1488.2 _ 

0.5223 

5.76992+04 

9 

18.37 

0. 

672.9 

1529.  1 

0.5853 

5.54160+04 

10 

17.34 

0. 

735.6 

1572.2 

0.6829  ... 

5.33770+04 

AUTO  INTERSTAGE  LOSSES 


ff 


-■AUTO  INTERST AGE  LOSSES 


•  *  *  GENERAL  FLOW  PASSAGE  (ANP  663)  *  *  * 

OUTPUT  UNITS  ARE  INCHES*  SQ.  IN**  PSIA,  DEG  F*  BTU/SEC*  LBM/SEC. 


CASE  38  MISCELLANEOUS  STAGE-BY-STAGE  OUTPUT 

EXIT  EXIT  AUTO  I NTR-  H-  F-  MASS 

STGE  P=DYN  P--STAT  STG  LOSS  COEFF  COEFF  VELOCITY 


_ i__.  1.3740+00 . --20.83-  -0. . -  — 

2  1.5595+00  20.25  0.12960 

3  6.8964-01  20.81 0. 

4  7.5708-01  20.58  0. 

5  8.2602-01  20.34 0. 

6  8.9665-01  20.09  0.48399 

_ 1  .  2.  6633+00  17.12 - 0.- 

8  3.0052+00  16.00  0. 

9  3.4400+00  14.-63 - 0. 

10  4.0753+00  12.77  0. 


1.0658-04 . 4.7342-03 . 2.3873=01 

1.1369-04  4.8072-03  2.3873-01 
7.5736-05  5.0961=03  1.5279-01 
7.9794-05  5.1597-03  1.5279-01 
8.3479-05  5.2183-03  1. 5279-01 
8.6846-05  5.2724-03  1.5279-01 

1.4007-04, .  5.0902=03 .  2. 3 873-0 L 

1.4409-04  5.1348-03  2.3873-01 
-1.4782=04  5.1764-03  2.3873-01 
1.5129-04  5.2154-03  2.3873-01 


MODIFIED  AUTO  INTERSTAGE  LOSSES 


MODIFIED  AUTO  INTERSTAGE  LOSSES 


*  *  *  GENERAL  FLOW  PASSAGE  ( ANP  663)  *  *  * 

INPUT  UNITS  ARE  INCHES,  SQ.  IN.,  PSIA,  DEG  F,  BTU/SEC,  LBM/SEC. 

CASE  40  POWER  PROFILE  AND  INTERSTAGE  LOSS  INPUT 


AUTOLOSS  CALC  =  1. 

INTENDED  ENTRANCE  LENGTH  EFFECT  =  0. 


BETA1  = 

0. 

BETA2 

=  0. 

INTRSTGE 

AUTO  LOSS 

STGE 

LOSS  COF 

MULT 

PHI  SUM 

PHI  EX 

PO 

PI 

1 

0. 

1.0000 

0.1000 

1.0000 

0. 

0. 

0. 

2 

0.5000 

0.7500 

0.2000 

1.0000 

0. 

0. 

0. 

3 

0.5000 

1.0000 

0.3000 

1.0000 

0. 

0. 

0. 

4 

0. 

1.0000 

0.4000 

1.0000 

0. 

0. 

0. 

5 

0. 

1.0000 

0.5000 

1.0000 

0. 

0. 

0. 

6 

0. 

0.7500 

0.6000 

1.0000 

0. 

0. 

0. 

7 

0.7500 

1.0000 

0.7000 

1.0000 

0. 

0. 

0. 

8 

0.7500 

1.0000 

0.8000 

1.0000 

0. 

0. 

0. 

9 

0.7500 

1.0000 

0.9000 

1.0000 

0. 

0. 

0. 

10 

0. 

1.0000 

1.0000 

1.0000 

0. 

0. 

_  0. 

MODIFIED  AUTO  INTERSTAGE  LOSSES 


/<& 


MODIFIED  AUTO  INTERSTAGE  LOSSES 


*  *  * 

GENERAL  FLOW 

PASSAGE  (ANP  663)  * 

*  * 

OUTPUT 

UNITS  ARE 

INCHES,  SQ 

.  IN.,  PSIA,  DEG  F, 

BTU/SEC, 

LBM/SEC. 

CASE 

40  FLOW  AND  TEMPERATURE  RESULTS  {GAS 

IS  AIR 

,  NO  1) 

WEIGHT 

FLOW  = 

3.00000-02 

MAX  AVE  WALL  TEMP  = 

1648.26 

AT  STAGE  6 

HEAT 

ADDITION  = 

4.7715+00 

TOTAL 

STATIC 

TOTAL  DYNAMIC 

MACH 

REYNOLDS 

PRESS 

PRESS 

TEMP  PRESS 

NO 

NO 

INLET 

23.450 

91.0  1.1519+00 

0.2718 

7.52382+03 

EXIT 

14.588 

13.133 

735.6  3.9774+00 

0.6651 

5.33770+04 

IN-EX 

8.8616+00 

-644.59 

RATT  0 

0.62211 

2.1699  PSEX/PTIN  =  0.56006 

ENTRANCE  AND  EXIT  LOSSES 

LOSS  COEFF 

P-TOT  LOSS 

,  TOT  PRESS 

INLET 

7.5000-01 

8.6390-01 

22.586UFTER) 

EXIT 

7.5000-01 

2.9830+00 

17.571 1  BEFORE ) 

CASE 


STGE 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 


40  STAGE-BY-STAGE  OUTPUT  RESULTS 


EXIT 

P-TOT 


22.24 

21.85 

21.56 

21.40 
21.23 
21.06 
20.11 

19.40 

18.57 

17.57 


INTRSTGE 

EXIT 

EXIT 

EXIT 

AVE 

P-TO  LOSS 

T-TOT 

T-WALL 

MACH  NO 

REYN  NO 

0. 

157.0 

1344.6 

0.3071 

8.66043+04 

0.15158 

222.8 

1336.0 

0.3321 

8.02266+04 

0. 

288.2 

1625.2 

0.2175 

5.99230+04 

0. 

353.3 

1622.3 

0.2294 

5.63182+04 

0. 

418.0 

1631.0 

0.2413 

5.32294+04 

0.32462 

482.4 

1648.3 

0.2532 

5.05549+04 

0. 

546.3 

1449.9 

0.4693 

6.02725+04 

0. 

609.8 

1488.2 

0.5153 

5.76992+04 

0. 

672.9 

1529.1 

0.5753 

5.54160+04 

0. 

735.6 

1572.2 

0.6651 

5.33770+04 

MODIFIED  AUTO  INTERSTAGE  LOSSES 


/*/ 


MODIFIED  AUTO  LNTERST AGE  LOSSES 


*  *  *  GENERAL  FLOW  PASSAGE  l ANP  663)  *  *  * 

OUTPUT  UNITS  ARE  INCHES*  SQ.  IN.»  PSIA,  DEG  F*  BTU/SEC»  LBM/SEC. 

CASE  AO  MISCELLANEOUS  STAGE-BY-STAGE  OUTPUT 


EXIT 

EXIT 

AUTO  I NTR- 

STGE 

P-DYN 

P-STAT 

STG  LOSS 

1 

1 *3740+00 

20.83 

0. 

2 

1.5595+00 

20.25 

0.12960 

3 

6.-8793-01 

20.86 

0. 

4 

7.5516-01 

20.64 

0. 

5 

8.2388-01 

20.40 

0. 

6 

8.9428-01 

20.15 

0.48399 

7 

2.6344+00 

17.33 

0. 

8 

2.9668+00 

16.23 

0. 

9 

3.3846+00 

14.90 

0. 

10 

3.9774+00 

13.13 

0. 

H- 

F- 

MASS 

COEFF 

COEFF 

VELOCITY 

1.0658-04 

4.7342-03 

2.3873-01 

1.1369-04 

4.8072-03 

2.3873-01 

7.5736-05 

5.0961-03 

1.5279-01 

7.9794-05 

5.1597-03 

1.5279-01 

8.3479-05 

5.2183-03 

1.5279-01 

8.6846-05 

5.2724-03 

1.5279-01 

1.4007-04 

5.0902-03 

2.3873-01 

1.4409-04 

5.1348-03 

2.3873-01 

1.4782-04 

5.1764-03 

2.3873-01 

1.5129-04 

5.2154-03 

2.3873-01 

/o£ 


X/L  STAGE  LENGTH  INPUT 


X/L  STAGE  LENGTH  INPUT 


*  «  *  GENERAL  FLOW  PASSAGE  ( ANP  663)  *  *  * 

INPUT  UNITS  ARE  INCHES»  SQ.  IN.*  PSIA,  DEG  F#  BTU/SEC,  LBM/SEC. 


CASE 

42 

ORIGINAL 

GEOMETRICAL 

INPUT  DATA 

TOTAL 

LENGTH  = 

3.0000+01 

CROSS  SECTION 

HYDR. 

FLOW 

STGE 

X/L 

LENGTH 

DIAM 

AREA 

1 

0.1000 

0. 

4.0000-01 

0. 

2 

0.2000 

0. 

0. 

0. 

3 

0.3000 

0. 

5.0000-01 

0. 

4 

0.4000 

0. 

0. 

0. 

5 

0.5000 

0. 

0. 

0. 

6 

0.6000 

0. 

0. 

0. 

7 

0.7000 

0. 

4.0000-01 

0. 

8 

0.8000 

0. 

0. 

0. 

9 

0.9000 

0. 

0. 

0. 

10 

1.0000 

0. 

0. 

0. 

ROUND 


X/L  STAGE  LENGTH  INPUT 


/0<3 


X/L  STAGE  LENGTH  INPUT 


*  *  *  GENERAL  FLOW  PASSAGE  { ANP  663)  *  •  * 

INPUT  UNITS  ARE  INCHES,  SQ.  IN.,  PSIA,  DEG  F,  BTU/SEC,  LBM/SEC. 

CASE  42  PROCESSED  GEOMETRICAL  INPUT  AND  F-  AND  H-MULTI PL IERS 

TOTAL  LENGTH  =  3.0000+01  CROSS  SECTION  IS  GENERAL 


HYDR. 

FLOW 

H- 

F- 

STGE 

X/L 

LENGTH 

DIAM 

AREA 

MULT 

MULT 

1 

0. 1000 

3.00000+00 

4.00000-01 

1.25664-01 

1.0000 

1.0000 

2 

0.2000 

3.00000+00 

4.00000-01 

1.25664-01 

1.0000 

1.0000 

3 

0.3000 

3.00000+00 

5.00000-01 

1.96350-01 

1.0000 

1.0000 

4 

0.4000 

3.00000+00 

5.00000-01 

1.96350-01 

1.0000 

1.0000 

5 

0.5000 

3.00000+00 

5.00000-01 

1.96350-01 

1.0000 

1.0000 

6 

0.6000 

3.00000+00 

5.00000-01 

1.96350-01 

1.0000 

1.0000 

7 

0.7000 

3.00000+00 

4.00000-01 

1.25664-01 

1.0000 

1.0000 

8 

0.8000 

3.00000+00 

4.00000-01 

1.25664-01 

1.0000 

1.0000 

9 

0.9000 

3.00000+00 

4.00000-01 

1.25664-01 

1.0000 

1.0000 

10 

1.0000 

3.00000+00 

4.00000-01 

1.25664-01 

1.0000 

1.0000 

X/L  STAGE  LENGTH  INPUT 


X/L  STAGE  LENGTH  INPUT 

*  *  *  GENERAL  FLOW  PASSAGE  IANP  663)  *  *  » 

OUTPUT  UNITS  ARE  INCHES,  SQ.  IN.,  PSIA,  DEG  F,  BTU/SEC,  LBM/SEC. 

CASE  42  FLOW  AND  TEMPERATURE  RESULTS  IGAS  IS  AIR  *  NO  1) 

WEIGHT  FLOW  =;  3.00000-02  MAX  AVE  WALL  TEMP  =  1648.26  AT  STAGE  6 

HEAT  ADDITION  =  4.7715+00 


TOTAL 

STATIC 

TOTAL 

DYNAMIC  MACH 

REYNOLDS 

PRESS 

PRESS 

TEMP 

PRESS  NO 

. NO  .  .. 

INLET 

23.450 

91.0 

1.1519+00  0.2718 

7.52382+03 

EXIT 

14.588 

13.133 

735.6 

3.9774+00  0.6651 

5.33770+04 

IN-EX 

8.8616+00 

-644.59 

RATIO 

0.62211 

2.1699 

PSEX/PTIN  =  0.56006 

ENTRANCE  AND  EXIT  LOSSES 

LOSS  COEFF  P-TOT  LOSS  TOT  PRESS 
INLET  7.5000-01  8.6390-01  22. 586{ AFTER) 

EXIT  7. 500-0-0 1  2.9830+00  1 7. 571  ( BEFORE ) 


CASE  42  STAGE-BY-STAGE  OUTPUT  RESULTS 


EXIT 

INTRSTGE 

EXIT 

EXIT 

EXIT 

AVE 

STGE 

P-TOT 

P-TO  LOSS 

T-TOT 

T-WALL 

MACH  NO 

REYN  NO 

1 

22.24 

0. 

157.0 

1344.6 

0.3071 

8.66043+04 

2 

21.85 

0.15158 

222.8 

1336.0 

0.332  L 

8.02266+04 

3 

21.56 

0. 

288.2 

1625.2 

0.2175 

5.99230+04 

4 

21.40 

0. 

353.3 

1622.3 

0.2294 

5.63182+04 

5 

21.23 

0. 

418.0 

1631.0 

0.2413 

5.32294+04 

6 

21.06 

0.32462 

. 482.4 

1648.3 

0.2 532  . 

5.^05549+04 

7 

20.11 

0. 

546.3 

1449.9 

0.4693 

6.02725+04 

8 

19.40 

0. 

609.8 

1488.2 

0.5153 

5.76992+04 

9 

18.57 

0. 

672.9 

1529.1 

0.5753 

5.54160+04 

10 

17.57 

0. 

735.6 

1572.2 

0.6651 

5.33770+04 

X/L  STAGE  LENGTH  INPUT 


X/L  STAGE  LENGTH  INPUT 


*  *  *  GENERAL  FLOW  PASSAGE  ( ANP  663)  *  *  * 
OUTPUT  UNITS  ARE  INCHES,  SQ.  IN.,  PSIA,  OEG  F,  BTU/SEC, 


CASE  42  MISCELLANEOUS  STAGE-BY-STAGE  OUTPUT 


EXIT 

EXIT 

AUTO  INTR- 

H- 

F- 

STGE 

P-DYN 

P-STAT 

STG  LOSS 

COEFF 

COEFF 

1 

1.3740+00 

20.83 

. 0. -  - 

L.Q65&— 04 — 

A. 7342-03 

2 

1.5595+00 

20.25 

0.12960 

1.1369-04 

4.8072-03 

3 

6.8793-01 

20.86 

0. 

7.5736-05 

5.0961-03 

4 

7.5516-01 

20.64 

0. 

7.9794-05 

5.1597-03 

5 

8.2388-01 

20.40 

0. 

8.3479-05 

5.2183-03 

6 

8.9428-01 

20.15 

0.48399 

8.6846-05 

5.2724-03 

7 

2.6344+00 

17.33 

. 0.  _ _ 

1.4007--04- 

5.0902-03 

8 

2.9668+00 

16.23 

0. 

1.4409-04 

5.1348-03 

9 

3.3846+00 

14.90 

0. 

1.4782-04 

5.1764-03 

10 

3.9774+00 

13.13 

0. 

1.5129-04 

5.2154-03 

LBM/SEC. 


MASS 

VELOCITY 

2.3873-01 

2.3873-01 

1.5279-01 

1.5279-01 

1.5279-01 

1.5279-01 
...  2.3873-01 

2.3873-01 

2.3873-01 

2.3873-01 


X/L  STAGE  LENGTH  INPUT 


X/X  STAGE  LENGTH  INPUT 


*  *  *  GENERAL  FLOW  PASSAGE  (  ANP  663)  *  *  * 

OUTPUT  UNITS  ARE  INCHES,  SQ.  IN.,  PSIA,  DEG  F,  BTU/SEC,  LBM/SEC. 


SUMMARY  PRINTOUT  FOR 
(CASES  2  THRU 

20  POINTS 
42) 

(GAS  IS 

AIR  ,  NO 

1) 

WEIGHT 

INLET 

EXIT 

PTEX/ 

EXIT 

PSEX/ 

CASE 

FLOW 

P-TOT 

P-TOT 

PTIN 

P-STAT 

PTIN 

. . 2.  . 

4.78042-02 

23.450 

....  16.840. 

0.71813 

15.950 

0^680-1  a 

4 

4.78204-02 

23.450 

16.834 

0.71787 

15.943 

0.67986 

6 

4. 78052-02 

23.450 

16.840 

0.71812 

15.950 

0.68016 

8 

4.78015-02 

23.450 

16.842 

0.71819 

15.952 

0.68024 

10 

4.78022-02 

23.450 

16.841 

0.71816 

15.951 

0.68021 

12 

4.78020-02 

23.450 

16.841 

0.71818 

15.951 

0.68023 

14 

4.78063-02 

23.45L 

16.841 

0.71814 

15.951 

0.680 19 

16 

4.78063-02 

23.451 

16.841 

0.71814 

15.951 

0.68019 

18 

4.78063-02 

23.451 

16.841 

0.71814 

15.951 

0.68018 

20 

4.78063-02 

23.451 

16.841 

0.71814 

15.951 

0.68019 

22 

4.78063-02 

23.450 

16.840 

0.71811 

15.949 

0.68015 

24 

4.78063-02 

23.450 

16.840 

0.71811 

15.949 

0.68015 

...  26 

4.78068-02 

23.450 

16.839 

0.71810 

15.949 

0.68014 

28 

2.50000-01 

23.450 

22. 305 

0.95116 

22.254 

0.94900 

32 

5.00000-03 

23.450 

15.719 

0.67030 

15.070 

0.64263 

34 

4.78042-02 

23.450 

15.685 

0.66886 

14.579 

0.62169 

36 

3.00000-02 

23.450 

17.372 

0.74081 

17.000 

0.72495 

38 

3.00000-02 

23.450 

14.283 

0.60909 

12.766 

0.54438 

..40 

3.00000-02  . 

23.450  . 

14.5.88 

0.62211 _ 

13.133 

0.560.06 

42 

3.00000-02 

23.450 

14.588 

0.62211 

13.133 

0.56006 

/t>7 


X/L  STAGE  LENGTH  INPUT 


X/L  STAGE  LENGTH  INPUT 


*  *  *  GENERAL  FLOW  PASSAGE  (ANP  663)  *  *  * 

OUTPUT  UNITS  ARE  INCHES*  SQ.  IN.*  PSIA,  OEG  F*  BTU/SEC,  LBM/SEC. 


SUMMARY  PRINTOUT  EOR  20  POINTS  l GAS  -IS  AIR  *  NO  1 J 


(CASES  2  THRU  42) 


CASE 

INLET 

T-TOT 

EXIT 

T-TOT 

TTEX/ 

TT1N 

_ 2 

_ 91.0 

. - . 500.0 

1.74233— 

4 

91.0 

500.0 

1.74229 

6 

91.0 

500.0 

1.74231 

8 

91.0 

500.0 

1.74229 

10 

91.0 

500.0 

1.74236 

12 

91.0 

500.0 

1.74229 

_ 14  . 

16 

91-Q 

_  _500*-0- . 

1.74229  . 

91.0 

500.0 

1.74229 

18 

91.0 

500.0 

1.74229 

20 

91.0 

500.0 

1.74229 

22 

91.0 

500.0 

1.74229 

24 

91.0 

500.0 

1.74229 

........  26... 

91.0 

- . 500.-0 . 

1^74229 

28 

91.0 

170.2 

1.14376 

32 

91.0 

3531.6 

7.24424  - 

34 

91.0 

500.0 

1.74233 

36 

91.0 

735.6 

2.16985 

38 

91.0 

735.6 

2.16985 

_ 40 

_  91.0 

-  735.6  - 

2.16985 — 

42 

91.0 

735.6 

2.16985 

HEAT  MAX  AVE 

ADDITION  SURF-TEMP  AT  STGE 


4.77150+00 

1237.9 

10 

4.77286+00 

1237.9 

10 

4.77150+00 

1237.9 

10 

4.77097+00 

1237.9 

10 

4.77150+00 

1238.0 

10 

4.77102+00 

1237.9 

10 

. -4.  77150+00 . 

.  1237.9 . 

10 . 

4.77145+00 

1237.9 

10 

4.77150+00 

1237.9 

10 

A. 77145+00 

1237.9 

10 

4.77150+00 

1237.9 

10 

4.77145+00 

1237.9 

10 

. 4.77150+00 

1237.9 

. 10 

A. 77150+00 

201.7 

10 

A. 77150+00 

_ 3617.1 

5 

A. 77150+00 

1184.0 

10 

4.77150+00 

1770.1 

10 

4.77150+00 

1648. 3 

6 

4.77150+00 

. . 1648.3 _ 

_ 6 

A. 77150+00 

1648.3 

6 

PARAMETRIC 


*  *  *  GENERAL  FLOW  PASSAGE  {ANP  663)  *  *  * 

INPUT  UNITS  ARE  INCHES.  SQ .  IN..  PSIA.  DEG  F,  BTU/SEC*  LBM/SEC. 


CASE  13  ORIGINAL  GEOMETRICAL  INPUT  DATA 

TOTAL  LENGTH  =  0.  . . CROSS  SECTION  IS  GENERAL - 


HYDR.  FLOW 

STGE  X/L  LENGTH  DIAM  AREA 

1  0.  3.0000E  00  5. OOOOE-OI  1.9635E-01 

2  0.  0. . .  .0.  _  .0  *. . — 

3  0.  0.  0.  0. 

4  0.  0.  0.  0. 

5  C.  0.  0.  0. 

60.  0.  0.  0. 

7  0.  0.  0.  0. 

8  0.  ... .  .  0  .  0, _  _ CL. _ _ _ 

9  0.  0.  0.  0. 

10  0.  0.  0.  0. 


PARAMETRIC 


PARAMETRIC 


*  *  *  GENERAL  FLOW  PASSAGE  CANP  663)  *  *  * 

INPUT  UNITS  ARE  INCHES,  SQ.  IN.,  PSIA,  DEG  F,  BTU/SEC,  LBM/SEC. 

CASE  13  PROCESSED  GEOMETRICAL  INPUT  AND  F-  AND  H-MULTIPLIERS 

TOTAL  LENGTH  =  3.0Q00E0L . CROSS  SECTION  IS  GENERA! - 

HYDR.  FLOW  H-  F- 

STGE  X/L  LENGTH  DIAM  AREA  MULT  MULT 


1  0.1000  3.00000E  00  5.00000E-01  1.96350E-01  1.0000  1.0000 

2  0.2000  3.000G0E  00  5.00000E-01  1.9&350E-Q1  1.0000  1.0000 . 

3  0.3000  3.00000E  00  5.00000E-01  1.96350E-01  1.0000  1.0000 

4  0.4000  3.00000E  00  5.00000E-01  1.96350E-01  1.0000  1.0000 

5  0.5000  3.00000E  00  5.00000E-01  1.96350E-01  1.0000  1.0000 

6  0.6000  3.00000E  00  5.00000E-01  1.96350E-01  1.0000  1.0000 

7  0.7000  3.00000E  00  5.00000E-01  1.96350E-01  1.0000  1.0000 

8  0.8000  3.00000E  00  5.00000E-01  1.96350E-01  1.0000  1.0Q0Q.„ 

9  0.9000  3.00000E  00  5.00000E-01  1.96350E-01  1.0000  1.0000 

10  1.0000  3.00000E  00  5.00000E-01  1.96350E-01  1.0000  1.0000 


//Z> 


PARAMETRIC 


PARAMETRIC 


*  *  »  GENERAL  FLOW  PASSAGE  (ANP  663)  *  *  * 

INPUT  UNITS  ARE  INCHES,  SQ.  IN.,  PSIA,  DEG  F,  BTU/SEC,  LBM/SEC 

CASE  13  POWER  PROFILE  AND  INTERSTAGE  LOSS  INPUT 


AUTOLOSS  CALC  =0. 

INTENDED  ENTRANCE  LENGTH  EFFECT  =  0. 


BETA1  = 

0. 

BETA2 

=  0. 

INTRSTGE 

AUTO  LOSS 

STGE 

LOSS  COF 

MULT 

PHI  SUM 

PHIEX 

PO 

PI 

1 

0. 

1.0000 

0.1000 

1.0000 

0. 

0. 

0. 

2 

0. 

1.0000 

0.2000 

1.0000 

0. 

0. 

0. 

3 

0. 

1.0000 

0.3000 

1.0000 

0. 

0. 

0. 

4 

0. 

1.0000 

0.4000 

1.0000 

0. 

0. 

0. 

5 

0. 

1.0000 

0.5000 

1.0000 

0. 

0. 

0. 

6 

0. 

.  1.0000 

0.6000 

1.0000 

0. 

0. 

0. 

7 

0. 

1.0000 

0.7000 

1.0000 

0. 

0. 

0. 

8 

0. 

1.0000 

0.8000 

1.0000 

0. 

0. 

0. 

9 

0. 

1.0000 

0.9000 

1.0000 

0. 

0. 

0. 

10 

0. 

1.0000 

1.0000 

1.0000 

0. 

0. 

0. 

PARAMETRIC 


/// 


P2 


PARAMETRIC 


*  *  *  GENERAL  FLOW  PASSAGE  (ANP  663)  *  *  * 

INPUT  UNITS  ARE  INCHES*  SQ.  IN.*  PSIA,  DEG  F,  BTU/SEC*  LBM/SEC. 

CASE  13  FLOW  INPUT  DATA  (GAS  IS  AIR  »NO  1.) 

•  *  *  WILL  EXECUTE  OPTION  NO  12  *  *  * 

FRICTION  FACT  AND  HEAT  TRANSFER  CORRELATION  FORMS 
N ( NUS )=A»(N(PR)**B)*(N(RE)**C) 

F=D*(N(RE  )**E  ) 

NUMERICAL  VALUES  (L  FOR  LAMINAR,  T  FOR  TURBULENT) 

AL=  4.230E  00,  BL=  0.  ,  CL=  0. 

at* _ 2*Q50.Er.0.2.* . BT= . 4.0Q0E-01,  CT=  8.000E-01 

DL=  1.600E  01,  EL=  -1.000E  00,  DT=  4.600E-02,  ET=  -2.000E-01 

BULK  TEMP  FOR  HEAT  TRANSFER  C0RRELATI0N{0=N0,  1=YES) 

LAMINAR  =  0  TURBULENT  *  0 

_ TRANSITION  RANGE  .FDR  NINU) . .  2*OOOQE  J?3  TO  —  8.0000E  .03  . 

TRANSITION  FOR  FRICTION  AT  ;  2.3000E  03 

TOTAL  STATIC  TOTAL 

PRESS  PRESS  TEMP 

INLET  2.34500E  01  91.00 

.-EXIT.  0. _ _ _ _ 0* _ 500.00 - - - . . 

EX/IN  0.  0. 

PSEX/PTIN  =  0.  - 

WEIGHT  FLOW  =  4.78063E-02  HEAT  RELEASE  =  0. 

QBAR  =0.  Q/QBAR  =  0. 

MAX  WALL  TEMP  -  0.  AT  STAGE  NO  0 


ACCURACIES  (FRACTIONAL  UNLESS  NOTED) 

PRESS  MACH  NO  WALL  TEMP (DEG ) 

10.000E-05  10. 000E-05  0.05 

COUNTER  LIMITS  ON  ITERATIONS _ _ 

OPTION  ITERATION  =  15 

CHOKES/WT  FLOW  =  10  CHOKES/CASE  =  30 
STAGE  PRESS  AND  WALL  TEMP  =  40 


//3L 


PARAMETRIC 


PARAMETRIC 


*  *  *  GENERAL  FLOW  PASSAGE  (ANP  663)  *  *  * 

INPUT  UNITS  ARE  INCHES,  SQ.  IN.,  PSIA,  DEG  F,  BTU/SEC,  LBM/SEC. 


CASE  13 


INCREMENT 
NO  OF  TIMES 


PARAMETRIC  SETUP  C 


INLET  TOT 
PRESS 

5.0000E  00 
2 


INLET 

TEMP 

l.OOOOE  02 
2 


EXIT  TOT 
PRESS 


16  CASES) 


EXIT 


58**  TEMP 


max  m 


IILH1 

■RELEASE 


SURF  TEMP 


l.OOOOE  02 .0. 

2  0 


WEIGHT 

FLOW  TEMP' 


INCREMENT  0.  0. 

NO  OF  TIMES  0 


-10. 0000E-03  0. 

0  . . .  2 . . 


0 


//3 


PARAMETRIC 


PARAMETRIC 


*  *  * 

GENERAL  FLOW 

PASSAGE 

(ANP  663)  * 

#  * 

OUTPUT 

UNITS  ARE 

INCHES,  SQ 

.  IN.,  ! 

PSIA,  DEG  F, 

BTU/SEC, 

LBM/SEC. 

CASE 

13  FLOW  AND  TEMPERATURE  1 

RESULTS  (GAS 

IS  AIR 

,  NO  1 ) 

..  WEIGHT 

FLOW  =  4 

. 78063C-02 

MAX  AVE 

WALL  TEMP  = 

1237.87 

AT  STAGE 

10 

HEAT 

ADDITION  = 

4.7715E 

00 

TOTAL 

STATIC 

TOTAL 

DYNAMIC 

MACH 

REYNOLDS 

PRESS 

PRESS 

TEMP 

PRESS 

NO 

NO 

INLET 

23.450 

91.0 

1.2000E  00 

0.2777 

9.59163E 

03 

EXIT 

16.840 

15.949 

500.0 

2.8204E  00 

0.5057 

7.87805E 

04 

IN-EX  6. 

6104E  00 

-409.00 

RATIO 

0.71811 

1.7423 

PSEX/PTIN  =  0.68015 

ENTRANCE  AND  EXIT  LOSSES 


LOSS  COEFF 

P-TOT 

LOSS 

TOT  PRESS 

INLET 

7.5000E-01 

9.0001E- 

-01 

22.550 (AF  TER) 

EXIT 

7 . 5000E-0  1 

2.  1 153E 

00 

18.955 (8EF0RE ) 

CASE 

13  STAGE-BY-STAGE 

OUTPUT  RESULTS  ... 

. - . . — ■ 

EXIT 

INTRSTGE 

EXIT 

EXIT 

EXIT 

AVE 

STGE 

P-TOT 

P-TO  LOSS 

T-TOT 

T-WALL 

MACH  NO 

REYN  NO 

1 

22.30 

0. 

132.5 

1084.3 

0.3059 

1.  12098E 

05 

2 

22.03 

0.  . . 

173.8 

1087 .5- 

0.3223 . 

_ 1.06626E 

05 

3 

21.74 

0. 

215.1 

1096.1 

0.3395 

1.01767E 

05 

4 

21.43 

0. 

256.2 

1108.8 

0.3576 

9.74259E 

04 

5 

21.09 

0. 

297.2 

1125.0 

0.3768 

9. 35251 E 

04 

6 

20.73 

0. 

338.1 

1143.8 

0.3975 

9.00019E 

04 

7 

20.34 

0. 

378.8 

1164.9 

0.4200 

8.6805  1  E 

04 

8 

19.92 

0.  _ _ 

_  419.3 

1187*7. 

_ 0.4449 

_ 8*38920£ 

04 

9 

19.46 

0. 

459.7 

1212.2 

0.4731 

8. 1 227 1 E 

04 

10 

18.95 

0. 

500.0 

1237.9 

0.5057 

7.87805E 

04 

PARAMETRIC 


PARAMETRIC 


*  *  »  GENERAL  FLOW  PASSAGE  CANP  663)  *  *  * 

OUTPUT  UNITS  ARE  INCHESt  SQ.  IN.t  PSIA,  DEG  F,  BTU/SEC*  LBM/SEC. 

CASE  13  MISCELLANEOUS  STAGE-BY-STAGE  OUTPUT 


EXIT  EXIT 

STGE  P-DYN  P-STAT 

1  1.3680E  00  20.90 

2  1.4889E  00  20.50 

3  1.6159E  00  20.08 

4  1.7500E  00  19.62 

5  1.8925E  00  19.13 

6  2.0452E  00  18.60 

7  2.2104E  00  18.03 

8  2.3912E  00  17.41 

9  2.5922E  00  16.72 

10  2.8204E  00  15.95 


AUTO  INTR-  H- 
STG  LOSS  COEFF 

0.  1.0638E-04 
0.  1.1082E-04 
0.  1. 1493E-04 
0.  1 • 1 875E-04 
0.  1 . 2232E-04 
0.  1 . 2567E-04 
0.  1 .288  IE-04 
0.  1.3 177E-04 
0.  1.3457E-04 
0.  1 • 3722E-04 


F-  MASS 
COEFF  VELOCITY 

4.4961E-03  2.4347E-01 
4.541 4E-03  2.4347E-01 
4. 5839E-03  2.4347E-01 
4.624  IE-03  2.4347E-01 
4.6620E-03  2.4347E-01 
4. 6979E-03  2.4347E-01 
4. 7320E-03  2.4347E-01 
4. 7645E-03  2.4347E-01 
4. 7953E-03  2.4347E-01 
4.8247E-C3  2.4347E-01 


PARAMETRIC 


PARAMETRIC 


*  *  *  GENERAL  FLOW  PASSAGE  (ANP  663)  *  *  * 

OUTPUT  UNITS  ARE  INCHES*  SQ.  IN.»  PSIA*  DEG  F,  BTU/SEC.  LBM/SEC. 

_£ ASE  14  FLOW  AND  TEMPERATURE  RESULTS  (GAS  IS  AIR  .  NO  1) 


_ .WEIGHT  FLOW  =  4 

.78063E-02 

MAX  AVE 

WALL  TEMP  = 

1517.38 

AT  STAGE 

10 

HEAT 

ADDITION  = 

5. 965  IE 

00 

TOTAL 

STATIC 

TOTAL 

DYNAMIC 

MACH 

REYNOLDS 

PRESS 

PRESS 

TEMP 

PRESS 

NO 

NO 

.INLET _ _  23.450 

. . 9 1.0 

. 1.20C0E  00 

0.2777 

9. 591 63 E 

03 

EXIT  15.780 

14.656 

600.0 

3.3458E  00 

0.5757 

7.37017E 

04 

IN-EX  7.6705E  00 

-509.00 

RATIO  0.67290 

1.9238 

PSEX/PTIN  *  0.62500 

_ ENTRANCE  AND  EXIT  LOSSES 

LOSS  COEFF  P-TOT  LOSS  TOT  PRESS 
INLET  7.5000E-01  9.0001E-01  22. 550 (AFTER ) 

EXIT  7.5000E-01  2.5093E  00  1 8. 289 (BEFORE ) 


CASE _ 14  STAGE-0 Y-STAGE  OUTPUT  RESULTS 


.  -  EXIT 

INTRSTGE 

EXIT 

EXIT 

EXIT 

AVE 

STGE 

P-TOT 

P-TO  LOSS 

T-TOT 

T-WALL 

MACH  NO 

REYN  NO 

1 

22.27 

0. 

142.8 

1411.5 

0.3093 

1.11377E 

05 

.  2 . 

21.97 

. 0. 

194.5 

.  1394.2 

0.3294 

1. 04737 E 

05 

3 

21.64 

0. 

246.0 

1388.9 

0.3504 

9.89976E 

04 

4 

21.29 

0. 

297.2 

1392.5 

0.3727 

9.39895E 

04 

5 

20.90 

0. 

348.3 

1403. 1 

0.3968 

8.95837E 

04 

6 

20.48 

0. 

399.1 

1419.0 

0.4231 

8.56794E 

04 

7 

20.01 

0. 

449.7 

1439.1 

0.4524 

8. 2  1 97 1  £ 

04 

. .  19.50 

. .  0. . . 

...  500.1  ... 

1462.6 

0.4861 . 

7 » 9.072.9  E.. 

.04 _ 

_  . 

9 

18.93 

0. 

550.2 

1488.9 

0.5260 

7.62552E 

04 

10 

18.29 

0. 

600.0 

1517.4 

0.5757 

7.37017E 

04 

)/& 


PARAMETRIC 


PARAMETRIC 


•  #  *  GENERAL  FLOW  PASSAGE  IANP  663)  *  *  * 

OUTPUT  UNITS  ARE  INCHES.  SQ.  IN.,  PSIA,  DEG  F,  BTU/SEC,  LBM/SEC . 


CASE  14  MISCELLANEOUS  STAGE-BY-STAGE  OUTPUT 


EXIT 

EXIT 

STGE 

P-DYN 

P-STAT 

1 

1.395  IE 

00 

20.84 

2 

1.5451 E 

00 

20.38 

3 

1.7037E 

00... 

19.88 

4 

1.8727E 

00 

19.35 

5 

2.0544E 

00 

18.76 

6 

2.2520E 

00 

18.12 

7 

2.4703E 

00 

17.41 

8 

2.716  IE 

00 

16.62 

9 

3.00 10E 

00 

15.72 

10 

3.3458E 

00 

14.66 

AUTO  INTR-  H- 

STG  LOSS  COEFF 

0.  9.9777E-05 

0.  1 • 055  IE-04 

0.  . 1. 1076E-04 

0.  1.1 557E-04 

0.  1.2001E-04 

0.  1.2412E-04 

0.  1 . 2794E-04 

0.  1.315  IE-04 

0.  .  1.3485E-04 

0.  1 • 3798E-04 


F-  MASS 

COEFF  VELOCITY 

4.5019E-03  2.4347E-01 

4. 5576E-03  2.4347E-01 

4. 6093E-03  2.4347E-0 1. 

4.6574E-03  2.4347E-01 

4.7023E-03  2.4347E-01 

4. 7444E-03  2.4347E-01 

4. 7839E-03  2.4347E-01 

4.821 2E-03  2. 4347E-0 1 

4. 8563E-03  2.4347E-01 

4. 8895E-03  2.4347E-01 


PARAMETRIC 


PARAMETRIC 


*  *  *  GENERAL  FLOW  PASSAGE  (ANP  663)  *  *  * 

OUTPUT  UNITS  ARE  INCHES*  SQ.  IN.*  PSIA,  DEG  F,  BTU/SEC.  LBM/SEC. 

CASE  28  FLOW  AND  TEMPERATURE  RESULTS  IGAS  IS  AIR  *  NO  -  1) 

-WEIGHT  FLOW  = ...  .3..Z8063E-.02- .-MAX._AWE.-WALL_IEMR ...»  .1275.73.  AT.  STAGE - 10 

HEAT  ADDITION  =  3.8058E  00 

TOTAL  STATIC  TOTAL  DYNAMIC  MACH  REYNOLDS 

PRESS  PRESS . .  TEMP... . .  PRESS  NO  NO 

_ 191.Q—J.  1650E-0 1  0.  1923  6.73213E.  03.. 

24.847  600.0  1.2930E  00  0.2749  5.80994E  04 

_ _ -409.00 .  . . 

1.6283  PSEX/PTIN  «  0.87336 


INLET . 28.450 

EXIT  25.195 
IN-EX  3.2549E  00 
RATIO  0.88559 


ENTRANCE  AND  .EXIT.  .LOSSES _ _ _  _ _ - . - 

LOSS  COEFF  P-TOT  LOSS  TOT  PRESS 

INLET  7. 5000E-0 1  5.373EE-Q1 27.9131 AFTER1 

EXIT  7.5000E-01  9.6975E-01  26. 165(BEF0RE) 


CASE 

28  STAGE-BY-STAGE 

CVTT  TMTOCTCC 

output  r 

EXIT 

E  SUL  IS . — 

px|  T 

_ EXIT— 

..  .  AVE  _ _ _  _ 

STGE 

CA  A  1 

P-TOT 

ill  *  WU  - 

P-TO  LOSS 

T-TOT 

T-WALL 

MACH  NO 

REYN  NO 

1 

27.77 

0. 

232.6 

1059.5 

0.2038 

7.89918E  04 

2  . . 

27.63 

. 0-  . . 

..  .2X4*0. 

_  IQ75-.8 . 

_ 0 .2115 _ 

__7^5A842£__Q.4 _ 

3 

27.48 

0. 

315.3 

1094.9 

0.2191 

7.27095E  04 

4 

27.31 

0. 

356.4 

1116.4 

0.2268 . 

7.0Q188E  04 . . 

5 

27-  14 

0. 

397.4 

1139.8 

0.2345 

6.75746E  04 

6 

26.97 

0. 

438.2 

1164.7 

0.2423 — 

6.53450E. 04 

7 

26.78 

0. 

478.9 

1191.0 

0.2502 

6.33035E  04 

a  . - 

.26.58 

. 0  .  . 

. . 519.4 

.„  1218.4 . 

0.2583. . 

6.  142  77E-0.4 _ 

9 

26.38 

0. 

559.8 

1246.7 

0.2665 

5.96984E  04 

10 

26.16 

0. 

600.0 

1275.7. 

0.274.9 

. 5.80994E  04 

>/? 


PARAMETRIC 


PARAMEIALC 


*  *  #  GENERAL  FLOW  PASSAGE  (ANP  663)  *  *  * 

OUTPUT  UNITS  ARE _ INCHES,  SQ.  IN* ,  PSIA,  DEG  F,  8TU/SEC*  LBM/SEC. 


CASE 23  MISCELLANEOUS  STAGE-BY-STAGE  OUTPUT 


. 

EXIT 

EXIT 

AUTO 

IN  TR- 

H- 

F- 

MASS 

STGE 

P-DYN 

P-STAT 

STG 

LOSS 

COEFF 

COEFF 

VELOCITY 

1 

7.8255E-01 

26.98 

0. 

9. 7666E-05 

4. 8222E-03 

1 . 9255E-0 1 

2 

8.3504E-01 

26.78 

0. 

1 • 0072E-04 

4. 8636E-03 

1.9255E-01 

3 

8.8838  E-QX 

.26.58 

0..... 

1.Q358E-04. 

4. 9 027 Er 03 

1.9255E-01 

4 

9.4265E-0 1 

26.36 

0. 

1.0626E-04 

4. 9399E-03 

1.9255E-01 

5 

9.9793E-0 1 

26.13 

0. 

1.0879E-04 

4.9751E-03 

1.9255E-01 

6 

I.0543E  00 

25.90 

0. 

1.111 7E-04 

5. 0086E-03 

1 . 9255E-0 1 

7 

1  •  1 .1 1 9 E  00 

25.65 

0. 

1.  1342E-04 

5. 0405E-03 

1.9255E-01 

8 

1.1708E  00 

25.39 

0. 

1 . 1 555E-04 

5. 0709E-03 

1 . 9255E-0 1 

_ 9. _ 

l.«_23 1 .1  £  00 

_ 23.tt.l3 _ 

.  0. 

l.  17.5  BE- 04  . 

5.0999E-03 

1.9255E-01 

10 

1.2930E  00 

24.85 

0. 

1.  1952E-04 

5. 1 277E-03 

1 . 9255E-0 1 

PARAMETRIC 


PARAMETRIC 


*  »  »  GENERAL  FLOW  PASSAGE  (ANP  663)  *  *  * 


OUTPUT 

UNITS  ARE  INCHES,  SQ. 

IN.,  PSIA, 

DEG  F,  BTU/SEC,  LBM/SEC • 

SUMMARY  PRINTOUT  FOR 
(CASES  12  THRU 

17  POINTS 
28) 

(GAS  IS 

AIR 

NO 

1) 

. . .  '  ' 

WEIGHT 

INLET 

EXIT 

PTEX/ 

EXIT 

PSEX/ 

CASE  FLOW 

yr  Pfte KMerr'fc.lC 

P-TOT 

P-TOT 

PTIN 

P-STAT 

PTIN 

12 

4.78063E-02 

23.450 

16.840 

0.7181 1 

15.949 

0. 680  1 5 

13 

4. 78063E-02 

23.450 

16.840 

0.71811 

15.949 

0.68015 

14 

4.78063E-02 

23.450 

15.780 

0.67290 

14.656 

0.62500 

15 

3.78063E-02 

23.450 

19.768 

0.84299 

19.353 

0.82523 

16 

3.78063E-02 

23.450 

19.323 

0.82400 

18.845 

0.80364 

17 

4. 78063E-02 

23.450 

16.672 

0.71098 

15.769 

0.67244 

18 

4.78063E-02 

23.450 

15.581 

0.66443 

14.433 

0.61549 

19 

3.78063E-02 

23.450 

19.692 

0.83976 

19.275 

0.82196 

_  ...20 

3. 78063E-02 

23.450 

19.243 

0.82059 

18.763 

0.80012 

21 

4. 78063E-02 

28.450 

23.615 

0.83005 

23.052 

0.81025 

22 

4 . 78063E-02 

28.450 

23.015 

0.80895 

22.363 

0.78606 

23 

3.78063E-02 

28.450 

25.573 

0.89888 

25.266 

0.88807 

24 

3.78063E-02 

28.450 

25.251 

0.83757 

24.904 

0.87537 

25 

4.78063E-02 

28.450 

23.519 

0.82667 

22.953 

0.80677 

_ .  26 

4 . 78063E-02 

28.450 

22.912 

0.80536 

22.257 

0.78233 

27 

3.78063E-02 

28.450 

25.518 

0.89696 

25.210 

0.88612 

28 

3.78063E-02 

28.450 

25. 195 

0.88559 

24.847 

0.87336 

SUMMARY 

'  PRINTOUT  FOR 

17  POINTS 

(GAS  IS 

AIR  , 

NO 

1) 

(CASES  12  THRU  28) 


CASE 

INLET 

T-TOT 

EXIT 

T-TOT 

TTEX/ 

TTIN 

HEAT 

ADDITION 

MAX  AVE 
SURF-TEMP 

AT  STGE 

AWT  PARAMETRIC. 

Ls~l 2  91.0 

500.0 

1.74229 

4.77145E 

00 

1237.9 

10 

13 

91.0 

500.0 

1.74229 

4.77145E 

00 

1237.9 

10 

14 

91.0 

600.0 

1.92377 

5.965 1 3E 

00 

1517.4 

10 

15 

91.0 

500.0 

1  .74229 

3.77337E 

00 

1198.1 

10 

16 

91.0 

600. C 

1.92377 

4.71736E 

00 

1467. 1 

10 

17 

191.0 

500.0 

1  .47465 

3.61882E 

00 

1037.0 

10 

18 

191.0 

600.0 

1.62826 

4.81250E 

00 

1313.6 

10 

19 

191.0 

500.0 

1.47465 

2.86184E 

00 

1009.1 

10 

,  20 

191.0 

600.0 

1.62826 

3.80583E 

00 

1275.7 

10 

21 

91.0 

500.0 

1.74229 

4.77145E 

00 

1237.9 

10 

22 

91.0 

600.0 

1  .92377 

5.96513E 

00 

1517.4 

10 

23 

91.0 

500.0 

1.74229 

3.77337E 

00 

1198.1 

10 

24 

91.0 

600.0 

1.92377 

4.71736E 

00 

1467.  1 

10 

25 

191.0 

500.0 

1.47465 

3.61382E 

00 

1037.0 

10 

_ 26 

191.0 

600.0 

1.62826 

4.81250E 

00 

1313.6 

10 

27 

191.0 

500.0 

1.47465 

2.86184E 

00 

1009.1 

10 

28 

191.0 

600.0 

1.62826 

3.80583E 

00 

1275.7 

10 

VII  PROGRAMMER  AMD  ANALYST  COMMENTS 


1.  There  are  slight  discrepancies  known  to  exist  between  the  GPP  binary 
program  deck  filed  with  GE  FFLD  Computations  Operation  and  the  Fortran 
source  deck  listed  in  the  present  report.  Shortage  of  time  has  prevented1 
reassembly  of  the  offending  subroutines .  If  such  occurences  prove 
sufficiently  inconvenient,  it  will  be  necessary  for  the  user  to 
reassemble  these  subroutines . 

In  the  existing  assembly  of  the  INPPRT  subroutine  which  prints  out 
input  data,  parametric  input  is  mislabeled.  The  order  of  labeling,  left 
to  right  and  first  to  second  line,  should  be  INLET  TOT  PRESS,  INLET  TEMP, 
EXIT  TEMP,  MAX  AVE  SURF  TEMP,  EXIT  STAT  PRESS,  EXIT  TOT  PRESS,  WEIGHT 
FLOW,  and  HEAT  RELEASE.  In  addition,  the  geometrical  cross  section  is 
mis-named  in  the  heading  of  the.  processed  geometry  printout. 

In  the  existing  assembly  of  the  $UTPUT  subroutine  which  prints  out  the 
calculation  results,  the  inlet  Reynolds  Number  should  be  multiplied  by 
12  and  what  is  listed  as  the  exit  Reynolds  Number  is  actually  the 
average  Reynolds  Number  for  the  last  stage.  In  addition,  when  feet  are 
the  basic  unit  of  output,  neither  the  stagewise  heat  transfer  coefficients 
or  mass  velocities  havettheir  units  changed. 

As  presently  assembled,  the  DPFRLT  subroutine  which  carries  out  the 
pressure  drop  computations  can  carry  out  only  automatic  interstage 
loss  calculations  or  arbitrary  interstage  coefficient  loss  calculations, 
not  an  intermixture  of  the  two  types .  This  is  an  unreasonable  situation 
and  the  source  deck  has  been  changed  to  permit  such  an  intermixture . 

The  DATPR0  (data  processing)  subroutine  will  not  distribute  the  modifying 
coefficients  (CLSM0D)  for  automatic  interstage  loss  coefficients  by 

,  y  means  of  the  mnemonic  NCLSMD.  The  source  deck,  however ,  lias  been 

corrected  so  that  this  distribution  can  be  carried  out  if  a  reassembly 
is  made . 

2.  Insofar  as  the  writer  knows,  there  are  no  requirements  for  the  GFP 
program  that  cannot  be  carried  out  equally  well  by  the  IBM  704  and  IBM 
7090  computers.  For  other  machines,  this  would  presumably  be  dependent 
on  the  adequacy  of  the  particular  compiler  which  would  have  to  operate 
upon  the  Fortran  source  deck.  The  TABLE  specification  which  has  been 
used  many  places  in  the  GFP  program  may  not  be  available  for  IBM  704 
compilers,  but  standard  coding  methods  can  be  used  to  accomplish  the  same 
purpose;  it  just  takes  more  effort: 

3.  The  LMPR^P  subroutine  discussed  in  Appendix  A  is  rather  annoying  when 
used  in  an  iterative  program  such  as  GFP.  Although  the  final  results 
of  the  calculations  may  lie  well  within  the  valid  range  for  thermal 
property  correlations,  a  monstrous  number  of  comments  could  be.  printed 
out  regarding  the  temperature  limits  of  one  or  more  properties  because 
of  extreme  temperatures  arising  during  the  course  of  the  iterations . 

The  writer  recommends  that  serious  consideration  be  given  to  the  possibility 
of  adding  an  extra  control  in  C$MM$N  storage  which  will  actually  control 
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ratputting  from  LMPEjfc?  so  that  during  iterations  it  will  be  suppressed  but 
after  convergence  it  will  be  functional.  In  general,  this  would  require 
a  repeat  of  the  pressure  drop  and  wall  temperature  calculation  routines 
after  it  was  established  that  convergence  had  taken  place. 

for  the  present,  the  writer  has  left  (with  some  qualms  a  dummy  version 
of  LMPE^fP  at  the  beginning  of  the  binary  deck  on  file  *  This  version 
does  not  print  comments «  It  may  be  wise  to  remove  It  for  production 


i ,  It  was  mentioned  in  the  Introduction  that  the  GFP  heat  transfer  treatment 
has  been  tailored  to  nuclear  heat  transfer  problems.  In  such  problems, 
t  .is  usually  known  that  amount  of  heat  is  going  to  be  released  and  where 
vhe  release  will  take  place.  Thus,  the  result  to  be  obtained  is 
usually  the  surface  temperature  which  will  result  in  convective  transfer 
of  the  specified  amount  of  heat  into  a  coolant  stream.  For  this  reason, 

:it  has  been  possible  to  uncouple  the  heat  transfer  calculations  from  those 
for  pressure  drop. 


/brother’  type  of  prchaem  for  which  it  might  be  desirable  to  adapt  the  GFP 
pregram,  would  be  those  where  a  desired  axial  surface  temperature  profile 
:.s  known  and  it  is  desired  to  compute  the  resultant  bulk  fluid  temperatures 
and  convective  heat  transfer  rates.  Under  these  circumstances,  a 
different  (but  more  tightly  bounded)  type  of  iteration  would  be  required 
In  which  the  procedure  might  be  as  follows  -  (assuming  the  most  difficult 
case  of  f  I  jjti  -tempe  nature  -  ba  s  e  d  heat  transfer  coefficient): 

a )  Assume  film  temperature  to  be  mean  of  inlet  bilk  and  specified 
surface  temperature  for  the  stage  and  calculate  convective  heat 
Transfer  coefficient  (CHIC) - 


(.aiciuate 
change e 


the  enthalpy  change  in  the  fluid  and  its  temperature 


e)  Recompute  the  CHIC  with  the  new  film  temperature  and  repeat  steps 

b)  and  c)  until  bulk  temperature  change  Is  less  than  some  convergence 
criteria  * 


One  matter  that  needs  considerable  thought  in  formulating  such  a  routine 
l.e  the  quest! cn  of  whether  one  wants  an  average  or  mean  temperature  for 
the  stage  or  a  local  temperature  such  as  the  trailing  edge  temperature . 
In  the  former  case  one  would  ordinarily  base  the  film  temperature  drop 
on  the  mean  temperature  for  the  stage  and  modify  the  calculated 
enthalpy  rise  accordingly.  In  the  latter  case.  It  becomes .  somewhat 
rricky  to  compute  the  total  enthalpy  rise  while  at  the  same  time  getting 
th,"  necessary  local  heat  or  enthalpy  rate  unless  some  sort  of  trailing 
edge  factor  can  be  established  (similar  to  that  used  in  the  present 
version  of  GFP}< 


obviously.  If  Is  not  possible  to  uncouple  the  heat  transfer  and  pressure 
drop  computations  In  an  example  such  as  has  been  discussed  wherein  the 
heat  transfer  calculation  determines  the  bulk  temperatures  which  are  needed, 
in  computing  the  pressure  drop.. 
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VIII  NOMENCLATURE 


VIII. 1  Input  Variables 

Math  Col.  1 


Symbol 

Mnemonic 

Control 

Meaning  or  Function 

FTIN 

4 

-  0  input  is  in  inches  and  derivatives; 
7  0  input  is  in  feet  and  derivatives; 

PTflfcjT 

4 

r  0  output  is  in  inches  and  derivatives; 
7O  output  is  in  feet  and  derivatives; 

RNKIN 

4 

*  0  input  is  in  deg.  F 

0  input  is  in  deg.  R 

RNK^UT 

4 

3  0  output  is  in  deg.  F 
^  0  output  is  in  deg.  R 

Dh 

DHioi 

3 

Hydraulic  diams  (offset ) 

Aff 

AFFioi 

3 

Free  flow  area  (offset) 

ROUNDxoi 

4 

7  0  AFFi  =  ij—DHi2  automatically 

3  0  no  action 

L 

LENGTH (0LEN)xoi 

3 

Stage  lengths  (offset) 

CL0SSxoi 

3 

Interstage  loss  coefficients  (offset) 

NDH, NAFF  (NAIL),  ?  4  Stage wise  distribution  controls 

NLEN,NCL0SS  )  100  for  DH,  AFF,  LENGTH,  and  CL0SS,  respectively 


pTin 

PTIN (PIN) 

3 

Inlet  total  pressure 

TTin 

TTIN  (TIN) 

3 

Inlet  total  temperature 

pTex 

PTEX(PEX) 

3 

Exit  total  pressure 

pSex 

PSEX 

3 

Exit  static  pressure 

W 

W 

3 

Mass  flow 

^Winax 

TWMAX 

3 

Maximum  stage  trailing  edge  temperature 

Q 

GRUfft 

3 

Passage  heat  release 

®fex 

TTEX(TEX) 

3 

Passage  exit  total  temperature. 

U 

f2 

BETA1  / 

BETA2) 

3 

Entrance  length  effect  friction  factor 
coefficients  for  laminar  and  for  turbulent 
flow,  respectively. 

aL 

COFHLM  > 
COFHTBj 

3 

Nusselt  No.  coefficient  for  laminar  and 
for  turbulent  flow,  respectively. 
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VIII. 1  Input  Variables  (continued) 


top 


CL 

Cip 


d£ 


eL 

ej 


EXHPLM  ? 
EXHPTB  ) 

EXHELM  ) 
EXHETBJ 

C0FFLM  ) 
C0FFEB  3 

EXPFLM  ) 
EXPFTBj 

ENTRNC 

GAS 

ACCMN0 

ACCESS 

ACCTMP 

L3MCHK 

LMCHT0 

LBtERY 

N0PRT 


PARPRT 

STAGES 
("*  N0STGE ) 

PRTSUM 


3  Prandtl  No.  exponent  for  laminar  and  for 

turbulent  flow,  respectively. 

3  Reynolds  No.  exponent  for  laminar  and 

for  turbulent  flow,  respectively. 

3  Friction  factor  coefficient  for  laminar 

and  for  turbulent  flow,  respectively. 

3  Reynolds  no.  exponent  in  friction  factor 

correlation  for  laminar  and  for  turbulent 
flow,  respectively. 

3  Calculate  entrance  length  effects. 

3  Gas  selector  (1  for  air,  4  for  Hs, 

6  for  He,  9  for  He ) 

3  Fractional  accuracy  on  Jfe.ch  No. 

(initialized  -  0.0001) 

3  Fractional  accuracy  on  pressures 

(initialized  «  0.0001) 

3  Absolute  accuracy  on  temperatures 
(initialized  s  0.049  deg.) 

4  Number  of  consecutive  time  program  can 
attempt  to  alleviate  choking  (if  iterating 
for  W)  (initialized  «  10) 

4  Total  no.  of  terms  choke  alleviation  can 

be  attempted  during  a  case  (initialized  *  30) 

4  Maximum  no.  ©f  times  program  can  iterate 

for  W.  (initialized  s  15) 

4  print  no  input  data  nor  output 

results  except  for  summary  table  of 
8"  major  variables"  (PTXN,  TTIN,  TTEX, 

HEX,  PSEX,  TWMAX,  W,  QT0T);  «  0  no  action. 

4  **0  for  each  case,  print  no  input  data 

nor  output  results  except  for  the  8 
"Major  variables";  -  0  no  action. 

4  No.  of  stages  (max  of  100) 


>  0  immediately  print  the  full  summary 
table  of  8  "major"  variables  which  other- 
wise  prints  only  after  100  calculations 
(automatically  reset--  after  use);  s  0 
no  action . 
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VIII. 1  Input  Variables  (continued) 


ALLRUN  4 


T0TLEN  3 

X$Li.oo  3 

case(kase)  4 

CASTEP(KASTEP)  4 

0S  PHISUMioo  3 

0x  PHIEXxoo  3 

PO  ,P1,P2100  3 

FTX0PI  3 

PSX0PI  3 

TEX0TI  3 


N0PTIN  4 
N0TTIN  4 
N0TWMX  4 
NOQIjfiT  4 
N0PSEX  4 
N0FTEX  4 
N0W  4 
N0TTEX  4 

DFTIN  3 
DTTIN  3 
DTWMAX  3 
DQT0T  3 
DPSEX  3 
DPTEX  3 
DW  3 
DTTEX  3 


always,  if  possible,  carry  out 
calculations  for  any  record  in  which 
no  error  or  amission  was  found  regardless 
of  what  occurred  during  previous  records; 

=  0  carry  out  no  calculations  once  an 
error  or  omission  has  been  found  but 
merely  search  remaining  records  for  DXP~ 
type  errors . 

Total  length  of  passage,  to  be  used  with 
stage  lengths  specified  by  XGL  (X/L) 

Fraction  of  total  length  to  current 
stage  exit. 

Case  number  (initialized  =  1) 

Interval  between  case  numbers  for 
automatic  case  numbering  (initialized  =  1) 

Fraction  of  total  power  released  by  end 
of  current  stage. 

Stage  exit  to  stage  average  power 

Tabular  power  profile;  stage  entrance, 
midpoint,  and  exit  tables,  respectively. 

PTEX/PTIN,  an  alternate  way  of  specifying 
PTEX 

PSEX/PTIN,  an  alternate  way  of  specifying 
PSEX. 

TTEX/TTIN  (ratio  based  on  absolute 
temperature),  an  alternate  way  of 
specifying  TTEX.  (Not  necessary  to  load 
TTIN  in  deg.  R) 

No.  of  parametric  entries  for  FT IN 

(zero  and  one  treated  as  TTIN 

equivalent )  TWMAX 

(^KPARAM)  QT0T 

PSEX 

PTEX 

W 

TTEX 

Increment  for  parametric  PTIN 

steps  for  (units  as  loaded)  TTIN 

(**  DPARAM)  TWMAX 

QT0T 

PSEX 

PTEX 

W 

TTEX 
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VIII ol  Input  Variables  (continued) 


AUT<&S 

3 

P*  0  calculate  automatic  interstage  loss 
coefficient  if  area  change  encountered. 

CLSMjfoxox 

(CLSMDIioo) 

3 

Multiplier  for  automatically  generated 
interstage  loss  coefficient,  (initialized 
si) 

NCLSMDxoo 

4 

Distribution  variable  for  CLSMOD 

Bw 

WIDTHxoi(DHD) 

3 

Width  and  height  of  rectangular  passage 

Lh 

HEIGETxoi  (AFFD) 

3 

from  which  and  Aff  are  to  be  auto= 

matically  calculated. 

Dnaj 

ELPMAJ10i(DHD) 

5 

Major  and  minor  axes  of  an  elliptical 

Dmln 

ELPMINxox  (AFFD) 

3 

passage  fro®  which  and  Aff  are  to  be 

calculated. 

Douter 

D0U$ERioi(DHD) 

3 

Outer  and  inner  effective  diameter  of 

Dinner 

DINHERiox  (AFFD) 

3 

concentric  ring  assembly  (half-rings  at 
inner  and  outer  surface . ) 

tring 

THICKxox 

3 

Thickness  of  Individual  ring  in  concentric 
ring  assembly. 

n 

H^RINGioi 

4 

No.  of  rings  in  concentric  ring  assembly, 
including  Inner  and  outer  half  rings. 

RECTNG 

4 

T'O  cross  section  is  rectangular. 

ELL IPS 

4 

>•  0  cross  section  is  elliptical 

RINGS 

4 

-y'O  cross  section  is  concentric  ring 
assembly. 

HMULTxoi 

3 

Stagewlse  multiplier  on  calculated  heat 
transfer  coefficients  (all  initialized  si) 

NHMULTxoo 

4 

Distribution  control  for  HMULI 

FMULTxoi 

3 

Stagewlse  multiplier  on  calculated 
friction  factors  (all  initialized  s  1) 

NFMULTxoo 

4 

Distribution  control  for  HMULT 

HEADER 

(HEDDUMxg) 

B 

Heading  comment 

CIN,CEX 

3 

Entrance  and  exit  loss  coefficients 

LIMPRS 

H 

Counter  limit  on  pressure  and  wall 
temperature  iterations  for  one  stage, 
(initialized  s  20) 
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VIII. 1  Input  Variables  (continued) 


PRTALL 

4 

Print  complete  stage  output  Including 
dynamic  pressures,  static  pressures,  heat 
transfer  coeff,  friction  factors,  and 
automatically  generated  interstage  loss 
coefficients,  if  any. 

maxmn«5 

(dMAXD) 

3 

Starting  value  for  max  passageMach  No. 
to  match  in  choking  remedial  (where 
possible)  (initialized  =  .5) 

N0INPT 

4 

Suppress  all  input  printout. 

MAXTMP 

4 

Stage  at  which  TWMAX  is  to  be  obtained 
when  iterating  to  match  TWMAX.  zero 
means  hottest  stage  is  used. 

LMEQLK 

4 

^0  use  bulk  temperature  for  laminar 
heat  transfer  correlation. 

TBBULK 

4 

7  0  use  bulk  temperature  for  turbulent 
heat  transfer  correlation 

TRANSF 

3 

Transition  Npg  for  friction  factor 
(initialized  *  2J00) 

TRANHL 

3 

Lower  bound  for  %u  transition  region 
(initialized  *  2000) 

TRANHU 

3 

Upper  bound  for  %u  transition  region 
(initialized  «  8000) 

NEWSET 

4 

^0  replace  BSI  table  by  BSO.  Enables 
retrieval  of  newly  calculated  quantities 
to  be  used  as  subsequent  design  contraints 
during  a  given  machine  run.  In  the  event 
that  the  case  fails,  will  result  in  program 
exiting  regardless  of  ALLRUN  will  also  fill 
QBAR. 

QBAR 

3 

Reference  heat  release  level.  (Can  be 
internally  filled  by  QQQBAR)  (BUf/see) 

Q0QBAR 

3 

QT0T/QBAR.  Will  override  a  QT0T  input 
value . 

N0GE0M 

4 

>0  do  not  print  geometrical  and  power 
profile  input. 

127 


VIII. 2  Internal  Variables 


Math 

Symbol 


Mnemonic 

KTRCRD 

KALCN0 

DEAD 


KTCHAD 

KTWADJ 

KTCHT0 

BSIn 

BS011 

DHDxoo 

DHIxoo 

APEDxoo 

AFFIxoo 

0LENDxoo 

0LENIxoo 

T0TLHD 

X0LDxoo 

CL0SSDxoo 

CL0SSIxoo 

FIND 

TIND 

TWMAXD 

TEXD 

Q*r0TD 


Purpose ' 

DIP  record  counter 

Sequential  number  of  successful  calculation 

^0  means  so ms  kind  of  error  found.  Causes 
searching  of  DIP  records  for  DIP  errors  unless 
ALLRUN  ^0o  If  ~  0,  no  action. 

Counts  choke  adjustments  for  a  single  wt.  flow. 

Counts  wt.  flow  adjustments 

Counts  total  choke  adjustments  for  a  case. 

Grouping  variable  for  8  major  input  variables 
-f  3  ratios o 

Grouping  variable  for  8  major  output  variables 
4-3  ratios. 

Input  hydraulic  diams .  with  offset  removed . 
Calculation  table  of  hydraulic  diams. 

Input  free  flow  areas  with  offset  removed. 
Calculation  table  of  free  flow  areas. 

Input  stage  lengths  with  offset  removed. 
Calculation  table  ©f  stage  lengths. 

Calculation  total  passage  length. 

Calculation  table  of  X/L  stations 

Input  interstage  loss  table  with  offset  removed. 

Calculation  table  of  interstage  loss  coefficients. 

Calculation  value  of  FTIN 

Calculation  value  of  TTIN 

Calculation  value  of  TWMAX 

Calculation  value  of  TOEX 

Calculation  value  of  Q.T0T 
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VI II. 2  Internal  Variables  (continued) 


Hln 

H 

G 

Texi  or  Tb 


HEXD 

PSEXD 

WD 

GRTMPI3 

GRTMP^a 

FTABI4 

HTABIa 

NSKPPR 

HSKPHT 

EHTRN 

KP0W 

K^PT 

KjiSCIL 

SVACMN 

SVACPR 

EERY 

TRIO, 1,2, 3 
GCAL 

HIN 

DELH 

GMASSxoo 

miioo 

KCHffeB 


Calculation  value  of  PTEX 

Calculation  value  of  PSEX 

Calculation  value  of  W 

Grouping  variable  for  temperature  input 

Grouping  variable  for  temperature  calculations 

Grouping  variable  for  friction  factor  data 

Grouping  variable  for  heat  transfer  data 

>  0  skip  pressure  drop  calculations 
=  0  no  action. 

>  0  skip  heat  transfer  calculation 

•  0  no  action 

Calculation  entrance  length  effect  signal. 

^  0  Power  profile  loaded. 

*  0  no  power  profile  loaded 

Carries  calculation  option  number,  if  any 

Counter  to  detect  if  iteration  is  "oscillating" 
and  tighter  tolerances  might  be  required  on  press 
drop  and  Mach  Ho. 

Saves  original  Mach  No.  accuracy 

Saves  original  press  drop  accuracy 

Independent  variable  iteration  counter. 

Iteration  values  of  independent  variables 

The  quantity  which  the . iteration  is  trying  to 
satisfy . 

Inlet  enthalpy 

Total  enth&Lpy  release 

Mass  velocities 

Stage  exit  bulk  temperatures 

Choke  signal;  if  >  0,  gives  stage  where  choke 
occurred. 
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VIII .2  Internal  Variables  (continued) 


YIELD0,1>2 

TEST! 


NT,L0C 

DEEIV 

AD,BD,FD 

M^RCAS 


KPARMR(M)  Msl 
2 

3 

4 

5 

6 

7 

8 


Current  value  of  quantity  being  iterated  for 

A  difference  used  in  determining  whether 
convergence  achieved. 

Used  for  error  identification. 

The  "straight-line "  derivative 

Coefficients  in  3= point  fit. 

'p’O  means  more  cases  to  be  parametrically 
generated  without  reading  in  anymore  data; 
s  0  read  in  more  data. 


Internal  parametric  counters  for  FTIN 
(always  initialized  one  less  TTIN 

than  input  value)  TWMAX 

QT0T 

(KPARMRs)  PSEX 

PTEX 


W 

TTEX 


KPARAMs 


FPARMIe 


DPARAMs 


DPARMI(M)  M-l 
2 

3 

4 

5 

6 

7 

8 


Groupting  variable  for  input  parametric 
counters,  (used  for  resets) 

Grouping  variable  for  starting  values  of  the  8 
major  flow  variables  (used  only  in  parametric 
studies ) . 

Grouping  variable  for  input  parametric 
increments « 

Grouping  variable  for  internal  parametric  FT  IN 
increments  with  needed  unit  changes.  TTIN 

TWMAX 

QT0T 

PSEX 

PTEX 

W 

TTEX 


FSTPAR 

NTWMAX  / 
N0TWMA; 

KPARMRs 


s'Q  signals  that  first  parametric  case 
is  being  carried  out;  s  0  not  first  case. 

Variations  of  N0TWMX 


Running  counters  for  parametric  studies. 
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VIII. 2  Internal  Variables  (continued) 


PIN  ) 

TIN  / 

PEX  \ 

TEX 

Variations  of  PTIN,  TTIN,  PTEX,TTEX 

K0N0PTa,io 

Table  to  enable  convenient  retrieval  of 
variables  associated  with  iterations  to 
satisfy  option  (preset) 

K0HPAR4,13 

Table  (preset)  which  retrieves  appropriate 
counters  during  parametric  studies. 

KSHIFT72 

KUP72 

Grouping  variables  used  in  lower  and  COMMON 
memory,  respectively,  for  transfer  fill  of 

K0N0PT  and  K0NPAR 

CLSGENioo 

Automatically  generated  interstage  loss 
coefficients . 

FSPID(BS0(9)) 

psexd/pucd 

PTPID  (BS0  (10 ) ) 

fexd/pind 

TXTID(BS0(ll) ) 

TEXD/TIND 

SAVTABi3,ioo 

Grouped  summary  table.  2  thru  11  correspond 
to  BS0(1-U).  SAVTAB(l)  used  for  case  number. 
SAVTAB&3)  -  NH0T 

NH0T 

Stage  no.  where  TWMAXD  located 

KRSC0N4 

Cross  section  control  group  (in  priority  sequence) 

KPT 

A  logical  routing  variable 

ND 

A  dunmy  subscript 

KL,K2,K3 

Backspacing  controls  for  cross-section  processing 

AFFL0C 

THKL0C 

NRGL0C 

Dummy  variables  used  in  backspacing  logic 

FRINGS 

floating  point  version  of  local  no.  of  rings. 

NRINGD100 

Internal  (offset)  version  of  HIRING 

THICKDxoo 

Internal  (offset)  version  of  THICK 

bwhen2 

Units;  input  or  output  (H) 

bunlen4,2 

Units;  inch  or  foot  (H) 
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VIH.2 

Internal  Variables  (continued) 

HJNTMP2 

Units;  F  or  R  (H) 

HEDDUM12 

Table  for  beading  comment 

Tv 

TW100 

Trailing  edge  surface  temperatures 

Mex 

j^GXIioo 

Stage  exit  Mach  Nos. 

%e 

HEXN^xoo 

Stage  average  Reynolds  No. 

h 

C^NVECaoo 

Beat  transfer  coefficients 

f 

FRICxoo 

Friction  factors 

DPIHT100 

Interstage  pressure  losses 

KFIRST 

Thrrony  variable  used  in  MAIN  to  check  SR  ERROR 
returns. 

DUMDIP 

Used  in  SR  READIN  t©  skip  first  DIP  list 

^MAXD 

Internal  mnemonic  for  MAXMNO 

6mx 

Maximum  passage  Mach  No. 

pmi 

(horrent  criteria  for  maximum  Mach  No. 

KjDPTH 

0  means  KOPT  ^10. 

WHI 

Lowest  choking  mass  flow  or  highest  non-choking 
inlet  pressure 

\n4 

Highest  non- choking  mass  flow  or  highest 
choking  ihtet  pr&s$ur@° 

KC0NV 

Dummy  convergence  criteria  used  for  iterations 
(my  be  ACCFRS  or  ACCTMP) 

KDI 

Subscript  which  retrieves  independent  variable 
from  BSO 

KDD 

Subscript  which  retrieves  dependent  variable  from 
BSO 

KD1,KB2,KI?3>  etc. 

Dummy  subscripts 

PRSCCRS2  f5 

Table  with  mnemonics  to  identify  cross  section 

CRSHD1,CRSHD2s,4 

Format  inserts  for  cross  section  printout 
format . 

TRYMAX 

High  value  of  best  bound  for  independent  variable 
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VIII. 2  Internal  Variables  (continued) 


PDYIN 

Inlet  dynamic  pressure ,  after  entrance  loss 

FDYEX 

Exit  dynamic  pressure,  before  exit  loss 

fklULT 

Entrance  Mach  No.  after  entrance  loss 

{&EXIT 

Exit  Mach  No.  before  exit  loss 

REYN IN 

Entrance  Reynolds  No.,  after  entrance  loss 

DPIN 

Entrance  loss,  tot  press. 

DPEX 

Exit  loss, tot  press. 

psexi 

PSEXIi00 

Stage  exit  static  pressures 

pdyn 

PDYEXIioo 

Stage  exit  dynamic  pressures 

TRYMIN 

Low  value  of  best  bound  for  independent  variable 

TESTP 

Smallest  difference  between  Gj&L  and  yield; 
yield- <  GOAL. 

TRIP 

Value  of  independent  variable  associated  with 
TESTP;  used  as  a  bound. 

TESTM 

Smallest  difference  between  GOAL  and  yield; 
yield  l^GQAL. 

TKYM 

Value  of  independent  variable  associated  with 
TESTM;  used  a6  a  bound. 

Tl 

Dummy  used  as  old  value  of  independent  variable 
in  testing  for  increment  to  new  value. 

T2 

Dummy  vised  for  new  value  of  independent  variable 
in  testing  for  increment  to  new  value  and 
testing  whether  new  value  lies  between  bounds. 

TSTGRP4 

Groups  TRYP,TESTP,TRYM,  and  TESTM 

KT0IPR 

Total  no.  of  cases  to  be  generated  in 
parametric  study. 

KTPAR 

Counter  on  no.  of  parametric  case  tried. 

KASESV 

Used  to  save  original  case  number  when  performing 
parametric  studies. 

X 

SUMLEN 

Distance  from  beginning  of  passage  to  end  of 
current  stage 

Mm 

fttnn. 

Entrance  Mach  No.  for  current  stage. 
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VIII. 2 

Internal  Variables  (continued) 

pini 

PINI 

Entrance  total  pressure  for  current  stage 

th(  ) 

©SPENT (“X  mode) 

Temperature  as  a  function  of  enthalpy 

Ht(  ) 

TMFENI(  1  mode) 

Enthalpy  as  a  function  of  temperature 

Tini 

TINI 

Inlet  total  tempo  to  current  stage 

/ 

GAM(  ) 

A  function  for  Cp/Cv 

g 

Conversion  factor  32.17 

R 

H() 

A  function  for  the  gas  constant 

Tf 

TAVG 

Film  temp,  in  SR  TWLT.  Otherwise,  stage 

average  bulk  temperature. 

// 

X  '' 

VISC(  ) 

A  function  to  calculate  absolute  viscosity 

k 

TC(  ) 

A  function  to  calculate  thermal  conductivity 

-V 

{ 

ETA. 

Curve=fitting  parameter  in  transitional 

heat  flow. 

NEfcl 

TRANHU 

Upper  Reynold®  No.  limit  for  transitional 

heat  flow. 

NReo 

TRANHL 

Lower  Reynolds  No.  limit  for  transitional 
heat  flow. 

Scale 

ENTRY 

A  calculated  value  of  stage  enthalpy  release 
during  surface  temperature  "iterations " . 

A* 

i' 

PSI 

An  intermediate  variable  used  in  SR  Lpfes 

%u 

8TCNNU 

Stage  Nusseli  No. 

NPr 

STGPRN 

Stage  Prandtl  No. 
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VIII. 3  Miscellaneous  Notation 


Math 

Symbol 

PT 

Ty 

west 

^ex-calc 

^tin-est 

A 


to, 

%Uc- 


Definition 
A  total  pressure 
A  total  temperature 

A  value  of  mass  flow  as  independent  variable 
An  exit  pressure,  static  or  total,  calculated  during  iterations 
A  value  of  inlet  total  press,  as  independent  variable 
A  flow  area 

A  fully  developed  friction  factor 
A  fully  developed  Husselt  No. 
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Table  1  -  Subroutines  Coded  Especially  for  GFP 


NAME 


PURPOSE 


MAIN 


Controls  calling  of  major  subroutines. 


C0NSIS 


Checks  adequacy  and  consistency  of  data.  Also 
selects  calculation  option. 


DATPR0 


Handles  transfers  and  distribution  from  input  tables 
to  calculation  tables .  Also  handles  unit  changes . 


DPFKLT 

INITAL 

INPPRT 

ITRC^N 

$JTPUT 

READIN 

BESET 

SETYLD ( I , A ) 

SUMPRT 

TWLT 

UNOKKE 


Pressure  drop  calculation. 

Performs  all  pre-load  initialization. 

Handles  printout  of  input  data. 

Handles  the  entire  execution  of  the  calculation 
option . 

Prints  normal  output. 

Contains  DIP-list  and  DIP  error  checker.  Has 
optional  feature  which  allows  program  to  run  from 
future  records  if  sufficient  data  are  present. 

Erases  most  of  calculation  data  fields  in  prepara¬ 
tion  for  a  change  'case . 

Selects  the  current  value  of  the  iteration  yield 
from  DPFKLT  output.  (Zero  arg  I  extracts  all 
possible  yield  variables) 

Prints  data  summary  (up  to  100  runs ) 

Wall  temperature  calculation . 

Adjusts  mass  flow  in  event  of  choke  if  option 
permits . 


OAR].'., 

0002  -  0097 
0099  -  03k7 

0349  -  0658 

0660  -  0913 
0970  -  1137 
1140  -  1523 
1525  -  1939 

1941  -  2280 
2282  -  2539 

2541  -  266.1 
2663  -  2730 

2732  -  2929 
2931  -  3292 
3294  -  3509 
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N  -.T'-d ep&r  tn&nt&J .  Ut :L1  J  ty  Subroutine s 


PER 

R 


IKPENT 

vise 


iU'SiCH 

CifeW 


F' viji;  2 

j,- 1  j..  j. 

SXIE.4P 


PURPOSE 

Computes  cp/cv  (  f)  as  function  of  temperature 

Prints  comment  when  temp  limit  of  property  exceeded . 

Prints  comment  when  property  not  available  for  a 
specific  gas . 

Computes  Prandtl  No.  (NpjJ  as  function  of  temp. 

Yields  gas  constant  for  selected  gases. 

Computes  thermal  conductivity  (k)  as  function  of 
temp.  ( BTU/se c - in-uR ) 

Function  yielding  temperature  or  enthalpy  - 

Computes  viscosity  (/()  as  function  Of  temp  (lbm/ft- 
sec) 

Computes  Mach  No.  from  total  properties 

Converts  Fahrenheit  temps  to  Rankine  or  vice  versa 

Used  to  distribute  data  in  tables. 

Computes  dynamic  pressure  from  total  properties 

Performs  linear  (with  2  pts . )  and  quadratic  (with 
3  pts . )  extrapolations . 

Computes  mass  flow  from  total,  properties 

(hew rout  print  of  floating  point  data. 

Computes?  incompressible  sudden  expansion  and 
contraction  losses . 


P  $:!££& 


PF3FU3 


Prints  error  codes . 

Uses  Simpson's  rule  to  integrate  tabular  power  profiles 

Computes  total  pressure  from  flow  and  remaining 
total  properties . 

Computes  static  pressure  from  total  properties . 

Inspects  first  card  of  input  data'  record. 

Checkout  print  of  fixed  point  data. 


CARDS 

3511  -'3560 

5562' -  3585 
3587  -  5605 

3606  -  3655 
3657  -  3688 
3691  -  37^2 

3 744  -  3862 
3864  -  3908 

.3910“  3928 
3930  -  3957 
3959  -  4012 
4014  -  4024 
4026  -  4062 

4064  -  4072 
4074  -  4082 
4084  -  4.124 

4126  -  4139 
4l4l  -  4.167 
4.169  -  4176 

4.1.78  -  4185 
4187  -  4211 
4213  -  4221 
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Figure  1  -  Logical  Flow  Chart  of  the  GFP  Mam  Program 


Initialize \ 
and  HD  DIG  / 

_ t _ 

Is  this  first  entry 
(KFIRST  f  9999?) 


_ 

Is  all  printout  suppressed? 

(n$prt  y  o? ) 

/yVfT)  /n\ 

V _ Wbo 

Is  input  printout  suppressed 
LM^INPT  >0?) 


s  this  a  return  fr; 
he  ERR0R  subrouti' 
(is  SL1  on?) 


Print  error  code 
for.  cause  of 
return  not  known 


DEAD  =  1. 


— - - 

AW  KFIRST  a  9999 


Turn  all  SL  off 


CALL  IKPPRT 


Was  an  error  found? 
(DEAD  7  0?) 


CALL  ITRC0N 


Did  iteration  fail? 
(SL2  on?) 


V  7(0 


Turn  SL2  on 


<  CALL  INITAL  \ 

r  Is  this  a  parametric 

A - -T - '  " 

>0 _ ± _ _ 

l  case?  (M0RCAS  00?} 

CALL  REA] 


Is  summary  printout 
re  que s ted ?  ( PRTSUM  >  0  ? ) 


Is  all  printout  suppressed 
(N0PRT  >  0?)’ 


CALL  DATPR0 


CALL  CONSIS 


War  roved? 

(DEAL  r  l?) 


CALL  OUTPUT 


Is  this  a  parametric  aase( 
l.  '  (M0RCAS  f  0?) 


/^s'  M/1"- — *" 


•^tep  KTPAR 


Is  this  the  first  calc? 
(KALCN0  "0?) 


Y>*{  D 


Is  this  final  parametric 
calc?  (KT0TPR  —  XTPlAR? ) 


Figure  1  (continued) 
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-e  2  -  Logical  Flow  Chart  of  the  Iteration  Control  Subroutine  (ITRCON)  for 
the  General  Flow  Passage  Program 


(^Entryy 

(^General  initialization^ 

_ _ l  /O9o _ _ 

.Is  pure  pressure  drop  or  pure 
heat,  transfer  case  to  he  run 
(WSKPHT  or  WSKPPR  f  0?) 


x/  //OQ 

Is  a  non-iterative  option  to 
ue  run?  (KOPTH  0?  )  _  . 


NOTE:  KDD  and  KDI  retrieve  the  dependent 

and  independent  variable,  respectively, 
from  the  BS0  table . 


;  Yekz 

"Calc  TO  from  ^ 
QT^TD  and  TEXD, 


KRT  =■  ’ll 


ClV/lf  K0PT  is  odd,  calc. 
V^V\  TEXD 


v^__w 

'Pre- iteration  initialization^ 

N  I  ==^— - 7 

jfls  KDI  >  1?) 


(fls  KRT  =  1,  2?) 

-/  =  *• 

-1 

r  //?o 

>  T2  = 

BS0  (KDI) 

Y  t/08  y 
/0ale  WL0  from  \ 
Pl.'SFUW  function, 
ajith  Mach  Wo.  =  .9/ 


- — '  W/g7. _ 

Calc  WHI  from  FLWFUW 
function  with  MA.ch  Wo. -.9 


URL 

(lit  KflJPT  >  2?') 


If  no  starting  value  for  independent\ 
variable  supplied,  generate  suitable 
value  with  Mach  Wo.  =  .1  using  either, 
.  PRSFUW  or  FLWFUW  function  / 


TRYO  =  BS0(KDl) 
G0AL  =  BS0(KDD) 


Is  K/PI  =  13?) 


Calculate  GMA.SS  and  TEXI 
stable s  and  enthalpy  rise/ 

_ I _ _ _ 

Is  pure  heat  transfer  "N 
calculation  to.be  run? 
(WSKPPR  f  0?)  • 

/call  dpfrlt> 


Was  a  pure  pressure  drop  A 
calc  run?  (WSKPHT  ^  0?)  J 

/>©  <5> 

_ X 

Did  stage  exit  pressure  fail 
^to  converge?  (SL2  on?) _ 

<y-<S)  . <§ 

_ /±£7jL  ~~ — 1 

^  Did  choke  occuf ?  Y  ' 
v  (KCH0KE  /€>?)  .) 


C2 


l4l 


Figure  2  (continued) 


Is  an  iterative  option 
being  run?  (K^PTBtl  0? ) 


GJ-rf  Is  wall  temp  calc  needed 
V be cause  K$PT^2  ? 


Has  total  choke  adjustment  N 
counter  limit  been  exceeded? 
(LMCHT^  KTCHT2<)  > 


/3£*>  I 


Is  non-iterative  option 
being  executed?  (KjtfPTKiliO? ) 


CALL  UnCHKE 


CALL  TWLT 


s  choke -adjust  counter 
mit  been  exceeded  for  a 
ngle  mass  flow?  (SL2.  on* 


Did  stage  exit  wall  temp 
jfaili  to  converge?  (SL2  on?) 


ILL  SE’IYLD  to  retrieve 
^pendent  variable  from  'BS$ 
foie  as  YIELD  2 


Is  pure  heat  transfer  calc 
being  run?  (NSKPPE-/  0?) 


f  Is  a  non-iterative  optio 
,  V  run  (K0FIH/O?) 

if  GjZtAL  is  \ 

JL 

1 

Readjust  inde-  \ 

aV(v) 

/l\P 

able  by  CALL  \ 

ff r  i;.: ,  •  / 

/"•CALL  SKI Y 

- % 

LI)  to  retrieve 

U  dependent 

variable  from 

C  uabi.r.  0  / 

\  Eli?  table 

as  YIELD  2 

K?ICM' 


ELD  2 


fractional  converg-nc 
needed?  ftatPI  >2?) 


EEST2/G0AL 


up  d 

ate  values  of  inc 

iepenaent 

varl 

.able  s'  a s  s  oc is  ted 

with  positive 

and 

negative  values  c 

i!EST:2  and , 

po.es 

able,  set  TKYMAX 

and  TRYMIN 

Has  convergence  been  obtained? 
(  |  YEST2 1  5DUMC0N?) 


Figure  2  (continued) 


mo 


Has  iteration  counter  limit 
been  exceeded?  (LIMTRY  <i  ITRY?) 


T 


*T2  =  T1  + 
•9^(WHI-T1) 


Test  if  TEST2  has  been 
3*  DUMC/N  for  three  passes. 
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for  tb/s  GPP  Program 


APPENDIX  A .  Thermal  Property  Functions 


The  following  temperature -dependent  functions  are  required  by  GFP: 


Viscosity 

Thermal  conductivity 
Specific  heat  ratio  (cp/cv) 
Prandtl  Number 
Enthalpy 


vise 

TC 

GAM 

PEN 

TMEENT (•+■!  mode) 


In  addition,  temperature  as  a  function  of  enthalpy  is  required  in  order 
to  compute  bulk  temperature  levels.  All  properties  employ  the  appropriate 
units  from  a  ibm,  sec,  inch,  B'TU,  and  deg  R  system  except  for  viscosity 
which,  as  a  result  of  an  unfortunate  act  of  expendiency  in  the  past,  is 
used  in  Ibm/ft-sec. 

All  properties  are  encoded  as  Fortran  II  functions  in  the  form  of 
polynomials  determined  from  least-squares  curve  fits  and  all  have  as 
the  final  argument  in  their  lists  the  variable  GAS.  The  sources  of 
data  are  included  in  the  source  deck  listings .  GAS  is  a  floating  point 
variable  which  designates  the  gas  whose  property  is  to  be  calculated 
according  to  the  following  table: 


Value 

Gas 

Available 

.1 

Air 

X  ' 

2 

Nitrogen  (N2 ) 

3 

CO2 

k. 

Hydrogen  (N2 ) 

X 

5 

Oxygen  02 

6 

Helium 

X 

7 

Argon 

8 

Freon 

9 

Neon 

X 

Only  those  gases  marked  with  X‘s  have  properties  available,  except  for 
the  relatively  minor  gas  constant  function  R.  Additional  gases  can  be 
readily  incorporated. 


With  the  exception  of  the  temperature -enthalpy  functions  which  will  be 
discussed  later,  ail  of  the  property  functions  have  the  following  features 
in  common: 

1)  All  are  "built"  for  a  maximum  of  a  sixth  degree  polynomial. 

2)  All  have  tables  which  give  the  lower  and  upper  temperature  limits  for 
each  gas  (tables  TMFL^W  and  TMPHI,  respectively).  If  the  function  is 
given  a  temperature  which  lies  outside  the  limits  for  a  given  gas,  the 
function  is  evaluated  at  the  nearest  temperature  limit  and  the  sub¬ 
routine  LMPR^P  is  called  to  print  out  a  comment  which  tells  the 
property,  the  gas,  the  temperature  limits,  and  what  temperature  was 
tried. 
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Appendix  A  (continued) 


3)  if  a,  given  function  is  given  a  value  of  GAS  for  which  it  does  not  have 
a  property  polynomial,  the  subroutine  N$PR$P  is  called  to  print  out 
the  property  name  and  the  gas  and  the  property  is  evaluated  for  air. 

The  TMPEMT  function  is  used  to  calculate  enthalpy  as  a  function  of 
temperature  (  +  mode)  and  temperature  as  a  function  of  enthalpy 
(-  mode).  The  least-squares  curve-fits  used  are  based  on  the  same 
data;  the  first  with  temperature  as  the  independent  variable  and  the 
latter  with  enthalpy  as  the  independent  variable.  Since  neither  curve 
fit  is  ’'perfect"  for  the  data,  one  cannot  assume  a  temperature,  calculate 
the  enthalpy,  and.  use  the  calculated  enthalpy  to  recompute  the  original 
temperature . 


In  order  to  avoid  this  discrepancy,  a  root-finding  technique  was 
employed  for  the  TMFENT  function  when  computing  temperatures . 

The  basic  equation  used  to  calculate  enthalpy  as  a  function  of  temperature 
(and.  in  all  other  property  functions  except  TFRMEN)  can  be  written  as 


-  jJEj 


>1-0 


A 


(A-l) 


where  T  represents  absolute  temperature  and  y  is  the  appropriate 
dependent  property.  The  inverse  curve-fit  used  as  a  starting  point  in 
the  calculation  of  temperature  from  enthalpy,  can  be  written  as 

4*  >t  .  , 

_  <•,  7  ,  ■  <A-2> 

The  problem  of  determining  temperature  from  enthalpy  is  facilitated  by 
defining  a  function  f,  one  whose  roots  is  to  be  determined,  by 


r-  £ 


f‘7'7* 


(A-3) 


where  y*  is  the  input  enthalpy  value.  The  desired  value  of  temperature 
(which  makes  f  -  0)  is  obtained  by  the  Newton -Eaphs on  method  using  the 
following  formula  for  the  i.  *t*  1-th  improvement  to  the  i-th  value  of  the 
temperature : 

-7-:i2£_)  (au) 

JV 

Equation  (A-2)  is  used  for  the  first  cut  on  temperature,  as  noted.  The 
derivative  needed,  by  formula  (A- 4 )  can  be  computed  as 


J-f 


4,- 


_ _  _  ^  y--  _ 

Jr"  3T  ~ 


>"'1  —T~  »-/ 


Vi  T 


(A-5) 


Iteration  is  halted  when  the  difference  between  successive  approximations 
become  less  than  or  equal  to  0.04-9  degrees. 


No  temperature  limits  have  been,  installed  in  the  temperature-enthalpy 
functions .  This  decision  has  been  made  with  some  reluctance  since  it 
does  allow  a,  program  user  to  exceed  the  valid  bounds  of  the  functions . 
However,  a  limit  cutoff  of  the  same  type  as  installed  in  the  other 
property  functions  would  invalidate  the  temperature  scale  utilization  of 
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Appendix  A  (continued) 


the  enthalpy- temperature  relationships.  A  better  arrangement,  which  the 
writer  recommends  to  anyone  who  undertakes  revision  of  the  program, 
would  he  to  have  the  LMPF.^P  subroutine  print  out  its  -warning  when  the 
allowable  range  of  the  enthalpy- temperature  correlations  is  exceeded, 
but-  to  allow  the  evaluations  to  be  performed  at  the  requested,  temperature 
rather  than  at  the  nearest  temperature  limit - 


15? 


fortran 


APPENDIX  B.  AMP  Department  Subroutines  Used  in  the 

GFP  Program  (not  from  the  standard  Fortran 
Library) 


STHA 


IDENTIFICATION : 

Storage  to  Tape  Hollerith 
J.  A.  Delaney 
GE-ANP  -  Even  dale 
November  17,  1959 


f^BPOSE: 

To  write  a  BCD  record  on  tape  for  off-line  printing  and  perform  the 

following: 

1,  Examine  coluim  1  for  a  legal  carriage  control  character  and  Vpaee  the 
printer  accordingly. 

2,  Count  the  number  of  lines  printed  on  a  page  and  cause  the  printer  to 
restore  the  paper  after  reaching  the  maxi  mum  of  55  lines.  Thus,  print¬ 
out  over  the  perforation  is  avoided. 

3,  Automatically  number  the  pages, 

4,  Automatically  print  a  heading,  if  one  has  been  Specified,  at  the  top 
and  bottom  of  each  page. 

5,  Supply  to  the  program  the  number  of  lines  already  printed  on  the  current 
Pag®* 

6,  Supply  the  current  page  number  to  the  program. 


USAGE: 

This  subroutine  may  be  inserted  in  any  FORTRAN  II  deck  and  will  automatically 
provide  features  1,  2,  and  3  above. 

STHA  retains  the  function  of  the  subroutines  CALL  LINES,  CALL  PAGES,  and 
CAUL  REST0  of  the  version  of  (STH)  written  by  W.  F.  COOK.  FPD,  April  23,  1959. 

For  a  description  of  the  other  features,  see  the  supplementary  write-up. 


LIMITATIONS: 

1.  Assumes  the  ANP  standard  720  paper  tape  for  printer  control.  (See 
supplementary  write-up.) 
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Appendix  B  (continued) 


STHA 


2,  Uses  the  following  names  as  entry  points: 

HDING,  REST#,  N0PAGE,  N0HEAD,  NEWSET,  LINES,  PAGES,  C0LUMN,  B0TT0K,  ANPIFM 

To  use  STHA  in  an  existing  program  which  employs  one  of  the  above  names 
for  another  subprogram,  place  STHA  in  the  deck  prior  to  the  others.  If 
the  FORTRAN  BSS  loader  finds  more  than  one  program  with  some  particular 
name,  the  last  program  of  that  name  loaded  is  the  one  executed. 

3.  For  best  results,  the  new  version  of  the  FORTRAN  poet  mortem  (called 
MEMD)  should  be  used  with  (5THA,  If  the  older  version  PM  is  used,  spacing 
may  be  off  during *the  printout  of  the  PM  list  and  e^tra  restores  may 
occur.  However,  the  spacing  will  correct  itself  after  returning  to  the 
program  from  PM, 


STORAGE  REQUIRED: 

STHA  uses  554  words  of  storage. 


NOTE:  STHA  has  two  control  cards,  identified  9THA  C0K1  and  STHA  COM2.  This 
was  necessary  because  there  is  not  enpugh  space  09  one  card  to  list 
all  the  entry  points. 


Appendix  B  (continued) 


3THA 


supplement 


USE  OP  0PTICM3  IN  3THA 


I,  SOURCE  LEVEL  -  Once  one  of  the  subroutines  1  through  7  is  called,  it  remains  in 

effect  until  some  future  specifications  is  called  to  override  it, 

1.  CALL  C0LUMH  (N) 

If  H  /  72,  page  numbering  will  be  at  the  right-hand  corner  of  120  column 
printout. 

If  N  ■  72,  page  numbering  will  be  at  the  right-hand  comer  of  72  coluzai 
printout. 

If  no  CALL  C0LUMN  is  used,  72  column  printout  will  be  assumed, 

2,  CALL  NEW3ET  (N)  -  The  next  page  will  be  numbered  N,  (This  will  also  reset 
an  indicator  to  print  page  numbers.) 

3,  CALL  N0PAGE  -  Page  numbering  will  be  omitted, 

4.  CALL  UHK  (ML)  -  The  number  of  lines  already  printed  on  the  current  page  is 
returned  as  the  value  for  ML, 

5.  CALL  PAGES  (NP)  -  The  current  page  number  is  returned  as  the  value  for  HP. 

6,  CALL  HDDKJ  (  )  -  When  mention  is  made  below  of  a  72  or  120  character  heading, 
it  is  assumed  that  column  1  is  not  available,  since  that  character  is  for 
carriage  control.  The  subroutine  will  ignore  the  character  specified  for 
coluari  1  and  insert  the  proper  carriage  control  character. 

a.  CALL  HDING  (B)  -  This  specifies  a  heading  for  printout.  B  is  the  name 
of  the  lowest  memory  location  of  a  12  or  20  word  vector  (72  or  120 
characters)  of  Hollerith  information,  which  subsequently  will  be  printed 
at  the  top  and  bottom  of  each  page.  If  page  numbering  is  talcing  place, 
the  last  12  characters  of  the  72  or  120  character  heading  are  not  printed 
at  the  top  of  the  page  since  this  space  is  reserved  for  "PAGE  XXX."  The 
full  72  or  120  characters  are  available,  however,  at  the  bottom  of  the 
page,  and  so  to  avoid  undesirable  information  there,  e  full  72  or  120 
character  heading  must  be  specified  even  if  the  last  12  characters  are 
blank. 

An  example  of  a  120  character  Yie&diag  is 
DIMENSION  A(20) 

EQUIVALENCE  ( A(2)  ,B2)  ,  (A(ll)  ,B11)  ,.(A(20)  ,  B) 

CALL  HDING  (B) 

CALL  CQLUMI  (120) 

READ  DIP  B,  BU,  BE 
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The  DIP  input  cards  would  be,  (starting  in  column  1) 

2B,9,  1st  54  heading  characters 
2B11,1.  next  54  heading  characters 
2B2,  @ 

(The  last  12  characters  are  used  for  page  numbering  at  the  top,  and  are 
desired  to  be  blank  at  the  bottom.) 

For  72  column  output,  an  example  is,  (starting  in  column  1) 

DIMH'JSION  A  (12) 

EQUIVALENCE  ( A(6) ,  B6) ,  ( A(12 ) ,  B) 

CALL  N0PAGE 
CALL  HD1NG  (B) 

READ  DIP  B,  B6 

DIP  cards,  (starting  in  column  l) 

2B,6,  1st  36  characters 

2B6,6,  next  36  heading  characters 

(All  72  columns  are  available  since  no  page  numbering  will  occur.) 

NOTE:  Although  CALL  HDING  (B)  may  be  used  prior  to  the  READ  DIP  statement 
which  reads  in  the  heading,  care  should  be  taken  that  no  output  statement 
requiring  a  new  page  occurs  between  the  two.  Otherwise,  the  present 
contents  of  B,  probably  all  zeros,  will  be  used  as  the  heading. 

b.  CALL  HDING (L20H...( heading)...)  or 
CALL  HDING(72H... (heading)...) 

This  alternate  form  may  be  used  if  the  heading  is  known  at  source  time. 

7.  CALL  N0HEAD  -  A  heading  will  not  be  printed  unless  one  is  later  specified. 

This  option  is  for  omitting  a  heading  that  has  been  previously  specified. 

8.  CALL  REST0  -  The  paper  will  be  restored  before  the  next  line  is  printed. 

9.  CALL  B0TT0M  -  The  paper  is  spaced  to  the  bottom  of  the  page  and  the  heading 

printed  there,  if  one  has  been  specified. 

10.  Illegal  Control  Characters  -  If  X,  the  character  in  column  1,  is  not  one  of 
the  standard  control  characters,  a  0  (double  space)  will  be  assumed.  Following 
this,  a  note  will  be  printed  out  as  follows: 

CONTROL  CHARACTER  *X*  OF  PRECEDING  LINE  IS  NOT  LEGAL 

11.  Legal  Carriage  Control  Characters  -  The  ANP  standard  carriage  controls  are 

0  double  space  before  printing 

blank  single  space  before  printing 
+  no  space  before  printing 

1  restore  before  printing 

2  skip  up  to  18  lines  before  printing 

4  skip  up  to  6  lines  before  printing 

8  skip  to  last  line  before  printing 
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The  characters  2  and  4  are  used  to  skip  to  the  last  line  of  a  certain  fraction 
of  the  page.  Control  2  will  skip  to  the  bottom  of  the  current  1/3  of  the  page. 
That  is,  if  the  control  character  is  2,  the  line  will  be  printed  on  line  19, 

37,  or  55,  whichever  comes  first.  Similarly,  a  control  character  4  will  skip 
to  the  bottom  of  the  current  l/9  of  the  page.  That  is,  printout  will  occur 
on  line  7,  13,  19,  25,  31,  37,  43,  49,  or  55,  whichever  comes  first. 

If  there  are  no  lines  left  on  a  page  corresponding  to  a  2  or  4  control,  i.e., 
either: 

a.  line  55  has  been  printed;  or 

b.  the  bottom  heading  is  to  be  printed  in  line  55,  and  line  55  would 
correspond  to  the  control, 

the  character  2  or  4  will  have  the  same  effect  as  a  control  character  1. 

12.  Standard  Page  -  Of  the  66  lines  per  page,  11  will  be-  used  for  margin  at  top 
and  bottom,  leaving  55  lines  per  page  for  printout.  If  a  heading  has  been 
specified,  it  will  be  printed  on  lines  1  and  55,  leaving  lines  2  through  54 
available  for  53  lines  of  print.  If  no  heading  has  been  specified,  the  page 
number  will  appear  on  line  1,  leaving  lines  2  through  55  available  for  54 
lines  of  print. 

If  CALL  N0PAGE  has  been  used,  lines  1  through  55  will  be  used  for  55  lines 
of  print. 

il.  OBJECT  LEVEL  -  Many  of  the  options  discussed  on  the  source  level  above  may  be 
used  quite  easily  on  the  object  level  for  existing  programs  if  DIP  is  used. 

In  the  following,  '* (STH)«  is  the  location  listed  by  MEMAP,  that  is,  the  entry 
point. 

1.  COLUMN  -  If  120  column  page  numbering  is  desired,  read  a  non-zero  value 
into  (STH)  ♦  1. 

2.  NEWSET  -  To  reset  the  page  counter,  read  an  integer  N  into  (STH)  ♦  3  and  a 
non-zero  value  into  (STH)  -*•  2.  Then  the  next  page  will  be  numbered  N. 

3.  N0PAGE  -  Read  zero  into  (STH)  +  2. 

4.  HDING  -  A  72  or  120  character  heading  may  be  read  (in  BCD)  into  memory 
beginning  at  (STH)  +  llg  ■  (STH)  ♦  9iq» 

5.  N0HEAD  -  Read  zero  into  (STH)  +  4. 
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1SL  FORTRA 
•SAMPLE  CASE  FOR  STHA 

DIMENSION  A ( 20 ) » C ( 50 ) 

EQUIVALENCE (A(20)»B)*(A(11) »B2 ) * ( A ( 2 ) »B22  ) 

110  DO  1201*1*50 
120  C ( I ) *  I 

130  WRITE  OUTPUT  TAPE  3 » 1000 ♦ ( C ( I ) *  I  *  1 *50 ) 

140  CALL  HDING(B) 

150  CALL  NEWSET ( 10 ) 

160  CALL  COLUMN (120) 

READ  DIP  B*B2»B22*D 
170  CALL  RESTO 

180  WRITE  OUTPUT  TAPE  3 ♦ 1000 ♦ ( C ( I ) ♦ I *1 *50 ) 

190  WRITE  OUTPUT  TAPE  3»1001»D 
200  CALL  BOTTOM 
CALL  NOPAGE 

WRITE  OUTPUT  TAPE  3 » 1000 ♦ ( C I  I ) » I  *  1 » 50  ) 

210  STOP 

1000  FORMAT! 1H01PE14. 5) 

1001  FORMAT! 1H71PE14.5) 

END (0*1*0) 

R  LOAD  AND  GO 

2B»9(  HEADING 

2B2  *9  *READ  WITH  DIP 
2B22*2»NOV.  24  1959 
*0*12345* 
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Write  Output  Tape  Subroutine  -  FORTRAN  II 

E.  W,  Klingenberg 
GS-ANP  -  Evendale 
September  1,  1959 


Purpose: 

To  convert  either  a  PRINT  statement  or  a  WRITE  OUTPUT  TAPE  statement  into 
the  equivalent  of  both  of  these  statements  and  to  allow  for  the  standard 
G&.ANPD  sense  switch  3  convention  for  output  automatically  if  so  desired* 


Usage: 

CALL  WOT  (N) 

The  WOT  subroutine  will  control  all  PRINT  and/or  WRITE  OUTPUT  TAPE  statements 
in  the  program  which  occur  logically  after  the  first  use  of  the  WJT  sub- 
routine,  even  when  these  output  statements  are  in  a  different  subroutine 
than  the  one  which  called  WOT,  The  argument  used  will  apply  until  another 
CALL  WOT  (N)  statement  is  used  to  change  the  argument  to  another  value. 

Either  an  integer  or  an  integer  variable  may  be  used  for  the  argument,  thus 
allowing  the  programmer  to  fix  the  output  or  to  place  it  under  control  of 
an  input  code  word.  Gy  using  a  CALL  >CT  (N)  statement  with  a  different 
integer  variable  in  the  argument  prior  to  each  set  of  output,  complete 
control  of  each  set  of  output  may  be  made  a  function  of  input.  Regardless 
of  whether  a  PRUT  or  a  WRITE  OUTPUT  TAPE  statement  was  used,  output  will 
given  on  tape  3  EXCLUSIVELY  and/dr  the  printer  according  to  the  following 

Argument  of  Output  on 


WOT 

Tape  3 

Printer 

1 

JBB 

yes 

2 

yes 

If  SW3  dow 

3 

yes 

no 

k 

If  SW3  up 

yes 

5 

If  SW3  up 

If  3W 3  down 

6 

If  SW3  up 

no 

7 

no 

yes 

0 

no 

If  SW3  down 

9 

no 

no 

This  subroutine  requires  four  other  subroutines  to  be  in  the  deck,  vis., 
(LEV),  (FIL),  (SPH),  and  (STH). 
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APPENDIX  C.  A  Curve  Fit  for  Transitional  Nusselt  Numbers 


The  treatment  described  was  devised  by  E.  T.  Lancet  and  appeared  originally 
in  an  internal  General  Electric  Company  report. 

The  form  of  the  fitting  equation  chosen  is  given  in  equation  (21)  and 
repeated  below. 

As  was  discussed  previously,  the  three  coefficients  are  to  be  determined  so 
that  the  Nusselt  Numbers  match  at  the  'boundaries  of  the  transition  region 
and  so  that-  the  transitional  Nusselt  Number  fairs  smoothly  into  the 
turbulent  ValvVa  The  latter  condition  can  be  expressed  for  the  present 

PMT /“■ \i] 

L  (  ‘,hl 


"V*JJ 


(C-2) 


n-  Bu.J  J  n^%r] 

't/i  — H<ra*rstTi*M 

Using  the  form  of  the  Nusselt  Number  correlation  shown  in  equation  (.17)  and 
introducing  the  symbol  °C  for  convenience,  we  can  write 
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Equating  (C-5)  and  (C-6)  yields  one  of  the  necessary  algebraic  equations, 
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Appendix  C  (continued) 


Direct  substitution  of  the  transition  Reynolds  Numbers  into  equation  (C-l) 
yields  the  other  two  algebraic  equations , 
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"he  solution  of  equations  (0-7)  for  the  coefficients  A,  B,  and  0  yields  th 
values  given  in  equation  (22 ) . 
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*  GENERAL  FLOW  PASSAGE  (ANP  663)  COMPLETE  SOURCE  DECK  4/28/61 

*  GFP  663  GENERAL  FLOW  PASSAGE 

*  A  PROGRAM  TO  CALCULATE  ONE-DIMENSIONAL  COMPRESSIBLE 

*  PRESSURE  DROP  AND  SURFACE  TEMPERATURES 

* 

*  SC  SKIRVIN 

*  HAS  AUTOMATIC  CALCULATION  OPTIONS  CONTROLLED  BY  AVAIL- 

*  ABLE  INPUT  DATA  -  WT  FLOW  ITERATED  TO  SATISFY 

*  TWMAX  OR  EXIT  PRES 

* 

♦BEGIN  STORAGE  MAP 

*  *  *  MASTER  GROUPING 

DIMENSION  BGO (1 00) »BG1( 3700 )»BG 2(1372) ,BG3(302)  ♦ 

1BG  ( 5474  )< 

EQUIVALENCE ( BGO  »  BG ) » ( BG1 »BG ( 101 ) ) » ( BG2»BG( 3801  ) ) » ( BG3  »BG ( 5173 ) ) 

COMMON  BG 

*  *  *  END  OF  MASTER  GROUPING 

EQU I VALENCE (PRTSUM* BGO (49) ) » ( DEAD?  BGO ( 13 ) ) » ( KALCNO»BGO ( 27 ) ) » 

1 ( NOPRT  »  BGO ( 46 ) ) » ( NO  I NRT  »  BGO ( 66 ) ) 

2 » ( MORCAS»3GO(41 ) ) 

EQUIVALENCE (PDYIN»BG0( 73) ) » ( PDYEX * BGO ( 74 ) ) ♦ (0MINLT»BG0(83 ) ) ♦ 

1 (OMEXIT,BGO( 84) ) » ( DP  I N*  BGO (85 ) ) » ( DPEX »BGO ( 86 ) ) 

2* ( TRANSF  »BGO ( 87 ) ) » ( TRANHL*  BGO ( 88 ) ) » ( TRANHU ♦ BGO ( 89 ) ) 

3» <NEWSET*BG0(90) ) » ( KTPAR ♦ BGO ( 91 ) ) » ( KTOTPR » BGO ( 92 ) ) , < QBAR » BGO ( 93 ) ) 
4 ( QOQ0AR  *  BGO ( 94 ) ) » (  NOGEOM  *BGO ( 95 ) ) 

EQUIVALENCE ( HEADER  »HEDDUM ( 12 ) ) 

EQUIVALENCE ( HEDDUM»BG1 ( 974 ) ) 

OF  STORAGE  MAP 


♦END 

* 


CALL  WOT ( 5 ) 

CALL  HD ING (HEADER ) 

♦IS  THIS  FIRST  ENTRY 

IF(KFIRST-9999)90»80»90 
♦NOT  FIRST  ENTRY  -  IS  SL  1  ON 
80  I F ( SENSE  LIGHT  1)82*84 
♦NORMAL  SR  ERROR  RETURN 
82  DEAD=1 • 

GO  TO  300 

♦REASON  FOR  SECOND  ENTRY  NOT  KNOWN 
84  CALL  NETERR (99*99) 

GO  TO  82 

♦NORMAL  FIRST  ENTRY 
90  KFIRST=9999 
♦TURN  SENSE  LIGHTS  OFF 
SENSE  LIGHT  0 

♦PERFORMS  PRE-LOAD  INITIALIZATION 
-  100  CALL  INITAL 

* 

♦READS  INPUT  DATA 
I  300;  CALL  READIN 


)b3 


0001  66 
0002  66 
0003  66 
0004  66 
0005  66 
0006  66 
0007  66 
0008  66 
0009  66 
0010  66 
0011  66 
0012  66 
0013  66 
0014  66 
0015  66 
0016  66 
0017  66 
GO  18  66: 
0019  66 

002A  66 
0021  66 
0022 
0023  66 
0024  66 
*0025  66 
0026  66 
0027  66 
0028  66 
0029  66 
0030  66 
0031  66 
0032  66 
0033  66 
0034  66 
0035  66 
0036  66 
0037  66 
0038  66 
0039  66 
0040  66 
0041  66 
0042  66 
0043  66 
0044  66 
0045  66 
0046  66 
0047  66 
0048  66 
0049  66 
0050  66 

©05i  .66 


*IS  a  summary  print  wanted 

0052 

663 

IF ( PRTSUM >400,400,900 

..... 

0053 

663 

♦NORMAL  SEQUENCE  -  PROCESS  INPUT  DATA 

- 

0054 

663 

400  CALL  DATPRO  . 

0055 

663 

♦CHECK  INPUT  CONSISTENCY  AND  ADEQUACY 

0056 

663 

500  CALL  CONS IS 

0057 

663 

♦CHECK  IF  ERROR  FOUND 

0058 

663 

IF (DEAD) 600* 560*600 

0059 

663 

♦CHECK  IF  FIRST  CALC 

t 

0060 

663 

560  IF(KALCNO)600, 600*570 

0061 

663 

♦IS  ALL  PRINTOUT  TO  BE  SUPPRESSED 

0062 

663 

570  I F ( NOPRT ) 580*580*700 

0063 

663 

♦IS  INPUT  PRINTOUT  TO  BE  SUPPRESSED 

0064 

663 

580  IF(NOINPT)600, 600*700 

0065 

663 

♦PRINT  INPUT  DATA 

0066 

663 

600  CALL  INPPRT 

0067 

663 

♦WAS  AN  ERROR  FOUND 

0068 

663 

IF ( DEAD >700*700,300 

0069 

663 

♦CARRY  OUT  CALCULATION  OPTION 

0070 

663 

700  CALL  ITRCON 

0071 

663 

♦DID  ITERATION  FAIL 

0072 

663 

I F ( SENSE  LIGHT  2)710*760 

> 

0073 

663 

710  SENSE  LIGHT  2 

0074 

663 

IF (MORCAS) 760*800,760 

0075 

663 

♦IS  PRINTOUT  COMPLETELY  SUPPRESSED 

0076 

663 

760  IF (NOPRT  >800*800,860 

0077 

663 

♦PRINT  RESULTS 

0078 

663 

800  CALL  OUTPUT 

0079 

663 

860  IE (MORCAS) 865 *870 *865 

0080 

663 

865  KTPAR=KTPAR+1 

0081 

663 

IF ( KTOTPR-KTPAR ) 900,900,870 

0082 

663 

♦IS  THIS  ONE-HUNDREDTH  CALC 

0083 

663 

870  IF(l00-KALCNO)900, 900, 1000 

0084 

663 

♦MAKE  SUMMARY  PRINTOUT 

0085 

663 

900  CALL  SUMPRT 

0086 

663 

♦WAS  THIS  PRINTOUT  A;  DIRECT  REQUEST 

0087 

663 

IF (PRTSUM >960,1000, 960 

0088 

663 

960  PRTSUM=0. 

0089 

663 

GO  TO  300 

0090 

663 

♦IS  THIS  A  PARAMETRIC  CASE 

0091 

663 

1000  IF(MORCAS) 1010,1010,300 

0092 

663 

♦RESET  CALC  DATA  FIELDS  WHERE  NECESSARY  FOR  CHANGE  CASE 

0093 

663 

1010  CALL  RESET 

0094 

663 

♦RETURN  FOR  CHANGE  CASE 

0095 

663 

GO  TO  300 

0096 

663 

END( 0 ,1,0) 

0097 

663 

*,*  *  *  *  *  *  *  *  *  *  *  *  ♦ 

**  *  ****** 

*  00  98 

663 

♦CONSIS  SR  TO, CHECK  CONSISTENCY  AND  ADEQUACY  OF 

0099 

663 

*  INPUT  DATA  AND  SET  CALCULATION  OPTION 

FOR 

0100 

663 

♦GFP  663  GENERAL  FLOW  PASSAGE 

0101 

663 

♦SC  SKIRVIN 

0102 

663 

* 

1 

0103 

663 

*  SETS  DEAD=1.  IF  ANY  ERROR  FOUND,  BUT 

ALWAYS 

0104 

663 

*  LOOKS  FOR  ALL  ERRORS 

0105 

663 

SUBROUTINE  CONSIS 

0106 

663 

* 

♦BEGIN  STORAGE  MAP 

0107 

0108 

663 

663 

♦GENERAL  USEAGE 

1AFFINS(100  ) »BS I  (11  ) *BSO  (11  )*CL0SSI(100  )*CLSGEN(100  ) 

2GLSMDK100  )»DHI  (100  ),DPARAM(8  ),DPARMI(8  )*FMULTI(100  ) 

3FTABI  (8  )*FPARMI(8  )*HTABI  (6  ) *HMULTI ( 100  )*KRSC0N(4  ! 

4KPARAM ( 8  )*KPARMR(8  )*NDH  (100  ) »NAFL  ( 100  ) *NLEN  (100  } 

5NCLOSS(100  )»NCLSMD(100  )*NRINGD(l00  )»NHMULT(100  ) *NFMULT ( 100  ) 
60LENI  (100  )*PHISUM(100  )*PHIEX  (100  )  *P0  (100  )*P1  (100  ) 

7P2  (100  )»THICKD(100  )*TEXI  (100  ) *XOLD  (100  )*BHIGH  (12  ) 

8HEDDUM( 12  ) »GMASS  (100  )»TW  (100  ) » REYNO  (100  )*FRIC  (100  ) 

9C0NVEC( 100) *DPINT( 100) *OMEXI ( 100) ,PRTGAS( 9 ) 

DIMENSION  PSEXI ( 100) ♦PDYEXI ( 100) *PEXI ( 100) 

♦BGO  NON-SUBSCRIPTED*  BG1  SINGLE*  BG2  DOUBLE*  BG3  CLEANUP 
EQUIVALENCE 


1(AD 

*  BGO ( 1 

) ) 

* (ACCMN0*BG0(2 

) ) * (ACCPRS*BG0(3 

)  )  * 

2( ACCTMP 

*  BGO ( 4 

)  ) 

* (ALLRUN* BGO (5 

) ) *{AUT0LS*BG0(6 

)  )  * 

3  ( BD 

*  BGO ( 7 

)  ) 

*  (  BLANKS*  BGO ( 8 

) ) * ( BETA1  *  BGO ( 9 

)  )  * 

4  ( BETA2 

♦BGO ( 10 

)  ) 

♦  (  Cl N  ♦ BGO ( 11 

) ) » ( CEX  »BG0 ( 12 

)  )  * 

5 (DEAD 

♦  BGO  ( 13 

)  ) 

* ( DELH  ♦ BGO ( 14 

) ) » ( DER I V  *  BGO ( 15 

)  )  * 

6 ( ENTRN 

♦  BGO ( 16 

)  ) 

♦ (ENTRNC*BG0(17 

) ) * ( FD  *BG0(18 

)  )  * 

7 ( FTIN 

♦BGO( 19 

)  ) 

♦ ( FTOUT  »BG0 ( 20 

) ) * (FSTPAR*BG0(21 

)  )  * 

8 (GOAL 

*BG0( 22 

)  ) 

♦(GAS  »BG0 ( 23 

) )  ♦  (HlN  *  BGO ( 24 

)  )  * 

9( I  TRY 

»  BGO ( 25 

)  ) 

* (KTRCRD*BG0(26 

)  ) *(KALCNO*BGO(27 

)  ) 

EQUIVALENCE 

1 ( KTCHAD 

♦BGO ( 28 

)  ) 

* ( KTWADJ  »BG0 ( 29 

) ) *(KTCHTO*BG0(30 

)  )  * 

2 ( KPOW 

,  BGO  ( 31 

)  ) 

» ( KOPT  ♦ BGO (32 

) ) * ( KOSCIL»BGO( 33 

)  )  * 

3 ( KCHOKE 

♦BGO ( 34 

)  ) 

* ( KASE  *BG0(35 

)  )  ,(KASTEP»BG0(36 

J  )  * 

4  ( LOC 

*  BGO  ( 37 

)  ) 

* (LIMCHK*BG0(38 

)  )  * ( LMCHT0*BG0(39 

)  )  * 

5 ( L IMTRY 

*  BGO ( 40 

)  ) 

* (MORCAS*BGO(41 

)  )  *(NSKPPR*BG0(42 

)  )  » 

6 ( NSKPHT 

♦BGO ( 43 

) ) 

♦  (NT  » BGO ( 44 

)  ) * ( NHOT  *BG0(45 

)  )  * 

7 ( NOPR  T 

*BGO( 46 

)  ) 

♦ (NOSTGE*BGO(47 

)  )  *(PARPRT»BG0(48 

)  )  » 

8 ( PRTSUM 

♦BGO (49 

)  ) 

* (RNKIN  *BG0(50 

)  )  * (RNKOUT*BGO(51 

)  )  » 

9 ( SVACMN 

♦BGO ( 52 

)  ) 

, (SVACPR*BG0(53 

)  ) » ( TOTLND*  BGO ( 54 

)  ) 

EQUIVALENCE 

)  )  * ( TRY2  *  BGO ( 57 

1(TRY0 

♦BGO( 55 

) ) 

* ( TRY1  *  BGO ( 56 

)  )  * 

0109  663 
0110  663 

*  0111  663 

*  0112  663 
»  0113  663 

*  0114  663 
,  0115  663 
,  0116  663 
,  0117  663 
,  0118  663 

0119  663 
0120  663 
0121  663 
0122  663 
0123  663 
0124  663 
0125  663 
0126  663 
0127  663 
0128  663 
0129  663 
0130  663 
0131  663 
0132  663 
0133  663 
0134  663 
0135  663 
0136  663 
0137  663 
0138  663 
0139  663 
0140  663 
0141  663 
0142  663 
0143  663 


2(TRY3  *BG0 ( 58  )) 
3 ( WHI  »BG0( 61  )) 
4( Y IELD1 »BG0 ( 64  )) 
5  (  Li  K^R S.  *J3lGO-L6  ~  ~  Tl 


( TEST1  »BGG ( 59 
( WLO  »BG0 ( 62 
( YI ELD2  *  BGO ( 65 
( PRT  ALL » BGO ( 68 


) ) *(TOTLEN*BG0(60 
) ) »(YIELD0»BG0(63 
) ) ,(NOINPT»BGO(66 
) ) » ( OMAXD  »BGO ( 69 


6rt5MAX~*BG0(70>  )  »  (OMAX1  *BG0(  71 )  )  »  ( KOPTH » BGO (  72  )  )  * 

7  (DMCONV*BGO ( 75 ) ) * ( KDI *BG0 ( 76 ) ) * ( KDD*BGO ( 77 ) ) » (TRYMAX  »BG0 

878 ) ) » ( MAXTMP*  BGO ( 79 ) ) » ( LMBULK»BGO ( 80 ) ) * (TBBULK  *BGO( 81 ) ) » 

9 ( KCHK1 , BGO ( 1 ) ) ♦ ( KCHK2  *  BGO( 7 ) ) »  <  KCHK3 » BGO ( 18 )) » ( KGAS  »BGO ( 82 ) ) 
EQUIVALENCE ( PDY IN  *BGO ( 73 ) ) » ( PDYEX » BGO ( 74 ) ) * ( OMINLT »BGO ( 83 ) J  » 

1 ( OMEX IT*  BGO ( 84 ) ) ♦ (DP  IN* BGO (85 ) ) » ( DPEX »BGO( 86 ) ) 

2* ( TRANSF*BG0(87 ) ) » ( TRANHL*BGO( 88 ) ) * ( TRANHU* BGO ( 89 ) ) 

3* ( NEWSET  *BGO ( 90 ) ) * ( KTPAR  »BGO { 91 ) ) » ( KTOTPR ♦ BGO ( 92 ) ) » ( QBAR ,8G0 ( 93 ) ) 
4  ( QOGBAR » BGO  (  94 )-)  *  ( NOGEOM » BGO  (  95  ) ) 

EQUIVALENCE 


KAFFD  »  BG1  (  2 
2 ( BSO  *  BG1 ( 213 

3 ( CLSGEN*  BG1 ( 337 
4( DHI  »BG1( 639 
5 ( FTABI  » BGi ( 755 
6 ( GMASS  » BGI ( 868 
7 ( HMULTI »BG1( 987 
8  t KRSCON  »  BGI  ( 1103 


) ) » ( AFFI  »BG1 ( 102 
) ) » ( BHI GH  , BGI ( 224 
) ) * (CLSMDI »BG1 (438 
)) » ( DPARAM*  BGI (739 
) ) * ( FPARM I » BGI ( 759 
) ) » ( HTABI  ,BG1 (968 
) ) » (KPARAM,BG1 ( 1087 
) )  *  (NDH  ;y.  , BGI  (1107 


) ) * ( BS1  »BG1 ( 202  ))* 
) ) ,(CL0SSI»BG1(237  )), 
) ) » ( DHD  *BG1 ( 539  ))* 
) ) ,(DPARMI»BG1(747  ))» 
) ) »(FMULTI»BG1(768  ))» 
) ) » (HEDDUM,BG1(974  ))* 
)) *(KPARMR. BGI (1095  ))» 
) > ♦ (NAFl  1  * BGI (1207  4  H 


0144  663 
0145  663 
0146  663 
0147  663 
0148  663 
(0149  663 
0150  663 
0151  663 
0152  663 
0153  663 
0154  663 
*0155  663 
0156  663 
0157  663 
0158  663 
0159  663 
0160  663 
0161  663 
0162  663 
0163  663 
0164  663 
0165  663 


9 ( NLEN  * BG1 ( 1307  ) ) * ( NCLOSS » BG1 ( 1407  ) ) » ( NCLSMD*  BG1 (1507  )) 
EQUIVALENCE 

1 ( NHMULT » BG1 ( 1607  )),( NFMULT»BG1 ( 1707  )), (OLEND  ,BG1(1808  ))» 

2 ( OLEN I  * BG1 ( 1908  ) ) , (PHISUM.BGl ( 2008  )),(PHIEX  ,BG1(2108  )), 

3(P0  ,BG1(2208  )),(Pl  ,BG1(2308  )),{P2  ,BG1(2408  ))» 

4(  TEX I  *BG1 ( 2508  ))»(TW  »BG1(2608  ) ) , (XOLD  ,BG1(2708  )), 

5 ( XOL  »BG1 ( 2808  )),(REYNO  »BG1(2908  ))»(FRIC  ,BG1(30Q8  )), 

6 ( CQNvEC*  BG1 (3108) ) * ( DPI NT»BG1 ( 3208  ) ) , ( OMEXI , BG1 ( 3308 ) ) 

7» (PRTGAS»BG1 (3408) ) .(PSEXI »BG1( 3417) ) , (PDYEXI *BG1(3517)  ) 

♦OPEN  AT  3617 *  KEEP  OPEN  UNTIL  3700 

DIMENSION  KONOPT (2*10) ,KONPAR ( 4* 13 ) »SAVTAB ( 13 ♦ 100 ) *KSVTAB ( 13  *  100 ) 
EQUIVALENCE ( KONOPT ♦  KUP  ,  BG2 ) » ( KONPAR  »BG2  <21 ) ) » 

1 ( SAVTAB»KSVTAB»BG2 ( 73 ) ) 

♦OPEN  1373 

EQUIVALENCE (THICKD»BG3(2) ) ♦ ( NRI NGD  *BG3 (1 03 ))»(PEXI»BG 3(203) ) 

* 

EQUIVALENCE ( COFFLM  »FTAB I  )  »  ( EXPFLM  »FTAB I ( 2 ) ) » ( COFFTB  » 

1FTABI ( 3 ) ) »(EXPFTB»FTABI (4) ) 


0166  663 
0167  663 
0168  663 
0169  663 
0170  663 
0171  663 
0172  663 
0173  663 
0174  663 
0175  663 
0176  663 
0177  663 
0178  663 
0179  663 
0180  663 
0181  663 
0182  663 
0183  663 


♦BASIC  OPTIONAL  VARIABLES 

DIMENSION  GRTMPK3)  *GRTMPO(3) 

EQUIVALENCE ( PIN  »B5I ) » ( T IN* BSI ( 2 ) ) * (TEX»BSI (3 ) ) ♦ (TWMAX  » 

IBS I (4) ) » (PSEX*BSI (5 ) ) * ( PEX  »BS I  ( 6  ) ) * (W,BSI (7) ) » (QTOT » 

2BS I (8) ) » (PIND»BSO) » ( TIND»BSO(2) ) ♦ (TEXD»BSO(3 ) ) » ( TWMAXD » 

3BSO ( 4 ) ) » (PSEXD»BSO(5 ) ) » (PEXD»BS0(6) ) » (WD,BSO(7) ) » ( QTOTD  * 

4BS0 ( 8 ) ) » (PSXOPI ♦ BS 1(9)) , (PTXOPI ,BSI (10) ) » (TEXOTI »BSI ( 11 )) » 

5 (PSPlD»BSO( 9 ) ) , (PTPID»BSO( 10) ) , (TXTID*BSO( 11 ) ) » 

6(GRTMPI»BSI (2) ) * (GRTMPO  »BSO( 2 ) ) 

* 

EQUIVALENCE ( COFHLM»HTABI ) » ( EXHPLM  »HTABI (2 ) ) » ( EXHRLM* 

1HTABK3)  )  »(COFHTB*HTABI  ( 4 )  )  »  ( EXHPTB*HTAB I  (  5  )  )  »  (  EXHRTB » 

2HTABI  (  6  ). ) 

EQUI VALENCE ( DPT  I N*DP ARAM) » ( DTTI N, DPARAM ( 2 ) ) » ( DTTEX » DP ARAM ( 3 ) ) » 

1 ( DTWMAX • DPARAM ( 4 ) )* ( DPSEX»DPARAM( 5 ) )»( DPTEX* DPARAM ( 6 ) ) » ( DW»DPARAM 
27  )  )  ,  (DQTOT* DPARAM (8 ) ) » ( NOP TIN»KPARAM) » 

3 ( NOTT IN*  KPARAM ( 2 ) ) » ( NOT TEX »KP ARAM ( 3 ) ) » (NOTWMX,NTWMAX,NOTWA» 
4KPARAM(4 ) ) * (NOPSEX* KPARAM ( 5 ) ) » ( NOPTEX  » KPARAM ( 6 ) ) » ( NOW  » KPARAM ( 7 ) ) » 
5(NOQTOT*KPARAM(B) ) 

* 

♦LIMITED  USEAGE 

DIMENSION  AFFDC 100 ) * DHD ( 100 ) »0LEND( 100 ) *XOL( 100) 

EQUI VALENCE ( AFFD»AFF (2) ) » ( CLOSS I  * CLOSS ( 2 ) ) *(CLSMDI ,CLSMOD(2 ) ) » 

1 ( DHD*  DH ( 2 ) ) » ( DH»  DOUTER » ELPMAJ  »W I DTH )»( AFF » DINNER  » ELPM IN  * 

2HEIGHT) » (FMULTI »FMULT(2 ) ) » (HMULTI »HMULT (2 ) )*( ROUND *KRSCON ) » 

3 ( RECTNG  *  KRSCON ( 2 ) ) ♦ ( ELLI PS .KRSCON ( 3 ) ) » ( RINGS » KRSCON ( 4 ) ) . 

4( OLEND*  LENGTH ( 2 ) ) » (NRINGD»NORING( 2 ) ) » ( NAFF *NAFL ) » ( THI CKD » 
5THICK(2) ) »(PTIN»PIN) »(TTIN»TIN) ,(PTEX»PEX) ,(TEX»TTEX) » 

6  (  CASE » KASE )  *  (  CASTEP..*  KASTEP  )  *  (  DHD*  DHG )  ♦  (  DH ,  DHGSUB  )  »  (  AFF  ♦ 

7AFFSUB) » ( OLEND *OL) » ( LENGTH »OLSUB ) > ( ACCMNO*PER) * ( NOSTGE  »MN ) » 

8 (HTABI (4) >A1 ) » ( FTABI (3) *B1) » (FTABI ( 4) »OM) * (FMULTI » AKF ) » (HMULTI » 
9AKH) , (CIN»C1) » (CEX*C2) » (PHI SUM, A2 ) » ( PHI  EX ,Q ) , ( NLEN ,NOL ) 

EQUI VALE*CE ( NDH  »NDHG ) » ( MAXMNO  *OMAXD ) 

♦ALL  MODIFIED  OFF-DES IGN ( ANP  443)  INPUT  VARIABLES 

♦  ARE  IN  DIP  LIST*  FUNCTIONALLY  WHEREVER  POSSIBLE 

*  *  *  MASTER  GROUPING  , 

DIMENSION  BG0<  100)  *BG1(3700)  ,BG2(  1372  )  »BG3(302)  * 


0184 
0185 
0186 
0187 
0188 
0189 
0190 
0191 
0192 
0193 
0194 
0195 
0196 
0197 
0198 
(0199 
0200 
0201 
0202 
0203 
0204 
0205 
0206 
0207 
0208 
0209 
0210 
0211 
0212 
0213 
0214  ■ 
0215 
0216 
0217 
0218 
0219 
0220 
0221 
0222 


1BG ( 5474 ) 

0223 

663 

EQUIVALENCE (BGO»BG) » ( BG1 » BG < 101 ) ) » ( BG2  » BG ( 3801 ) ) » ( BG3 » BG ( 5 173 ) ) 

0224 

663 

COMMON  BG 

0225 

663 

*  *  *  END  OF  MASTER  GROUPING 

0226 

663 

DIMENSION  KOPSET (3»13)»BSOD(8) 

0227 

663 

TABLE  KOPSET (1,4,8,  1,4,3,  1,5,8,  1,5,3,  1,6,8,  1,6,3, 

0228 

663 

17,5,8,  7,5,3,  7,6,8,  7,6,3,  7,1,8,  7,1,3,  1,8,3) 

0229 

663 

♦END  OF  STORAGE  MAP 

0230 

663 

* 

0231 

663 

NOSTGE=NOSTGE 

0232 

663 

*IS  THIS  A  PARAMETRIC  STUDY 

0233 

663 

I F ( MORCAS ) 90,90,80 

0234 

663 

♦IS  THIS  FIRST  PARAMETRIC  PASS 

0235 

663 

80  I F ( FSTPAR ) 1080 , 1080 ,90 

0236 

663 

♦EITHER  NON-PARAM  OR  FIRST  PASS 

0237 

663 

90  CONTINUE 

0238 

663 

♦CHECK  XOL  STAGE  LENGTH  INPUT  . 

0239 

663 

IF(TOTLEN)100,170,100 

0240 

663 

100  NOXOL=l 

0241 

663 

DO  130  N=2»NOSTGE 

0242 

663 

IF ( XOL (N)-XOL(N-l)) 110,130,120 

0243 

663 

110  CALL  NETERR ( 108 , N ) 

0244 

663 

DEADal. 

0245 

663 

GO  TO  130 

0246 

663 

120  NOXOl=0 

0247 

663 

130  CONTINUE 

0248 

663 

IF(NOXOL)140, 150,140 

0249 

663 

140  CALL  NETERR (108,0) 

0250 

663 

DEAD=1 • 

0251 

663 

150  I F ( XOL ( NOSTGE )  1  * ) 160 , 170 , 160 

0252 

663 

160  CALL  NETERR! 109,0)  .  . 

0253 

663 

DEAD=1 • 

0254 

663 

170  CONTINUE 

0255 

663 

♦CHECK  FOR  SUFFICIENT  DATA 

0256 

663 

440  DO  530  N=l, NOSTGE 

0257 

663 

IF(CLENI (N) ) 490, 490, 450 

0258 

663 

450  I F( DHI <  N ) ) 460,460,470 

0259 

663 

460  CALL  NETERR ( N , 1 ) 

0260 

663 

DEADssl. 

0261 

663 

470  I F ( AFFI ( N ) ) 480, 48 0,530 

0262 

663 

480  CALL  NETERR (N, 2  ) 

0263 

663 

DEAD=1 • 

0264 

66 

490  IF(AFFI (N) 1520,520,530 

0265 

66, 

520  CALL  NETERR <N, 3  ) 

0266 

6?  ; 

530  CONTINUE 

0267 

6  6  3 

IF ( PIND— PEXD 1550,545,550 

0268 

6  3 

♦NO  PRES  DROP  CALC 

0269 

hi  :?• 

545  NSKPPR  =  1  :  " 

0270 

C  ;  ■ 

GO  TO  580 

0271 

bt'i 

550  NSKPPR=0 

0272 

663 

555  DO  570  M=1 ,4 

0273 

663 

IF(FTABI (M) 1570,560,570 

0274 

663 

560  CALL  NETERR ( 102 , M > 

0275 

663 

DEAD=1. 

0276 

663 

570  CONTINUE 

0277 

663 

580  IF(TIND-TEXD)590,585 ,590  1  ,  /] 

•  0278 

663 

♦NO  . HEAT  TRANSFER  SIGNAL  /  [f  ' 

6279 

663 

585  NSKPHT=1 
GO  TO  600 
590  NSKPHT-0 

600  IF(HTABKl)  >620*610,620 
610  CALL  NETERR( 103*1) 

DEAO=l. 

620  IF (HTABI (4) >640*630  *640 
630  CALL  NETERR( 103*4) 

DEAD=1. 

640  CONTINUE 

650  I F ( NSKPPR*NSKPHT  >66  0*670 ,660 
^NEITHER  HEAT  TRANSFER  NOR  PRESSURE  DROP  REQUIRED 
.  660  CALL  NETERRt 104*104) 

DEAD=1. 

670  I F { ENTRNC)  720 ,720  *680 
680  ENTRN-1 • 

IF { BETA1 ) 700,690,700 
690  CALL  NETERRt 105*105 ) 

700  IF(BETA2 >720*710,720 
710  CALL  NETERRt 106,106) 

CHECK  FOR  QBAR  INPUT 
720  IF (QOQBAR >722*726*722 
722  IF (QBAR) 724,726»7?4 
724  QTOTD=QOQBAR*QBAR 
QTOT=QTOTD 

CONSISTENCY  AND  ADEQUACY  CHECKING  FINISHED 
726  CONTINUE 

IF(NSKPPR) 980,730,980 
730  IF { NS KPHT) 980,740 *980 
SET  OPTION  INDICATOR 

740  KOPT=0 

DO  741  L=l*8 

741  BSOD(L)=BSI (L) 

IF (PSEX >742*742 *744 

742  IF (PSXOPI >744*744,743 

743  B$OD( 5 )  =  !• 

744  IF (PEX) 745 *745, 747 

745  IFIPTXOPI >747,747,746 

746  BSOD(6)=l. 

747  IF(TEX>750, 748,750 

748  IF (TEXOT I >750*750,749 

749  BSOD(3 ) =1  • 

750  DO  760  J=1 *  13 
DO  752  1=1*3 
ID=KOPSET( I, J) 

I F ( BSOD ( ID) >752,760,752 
752  CONTINUE 

FORMAL  EXIT  SETS  OPTION  - 
KOPT=J 

kopth=io-kopt 

GO  TO  900 
760  CONTINUE 

FORMAL  EXIT  MEANS  OPTION  CANNOT  BE  SET 
790  CALL  NETERRt 150,1) 

SENSE  LIGHT  3 
DEAD=1. 

900  CONTINUE 


H? 


0280  663 
0281  663 
0282  663 
0283  663 
0284  663 
0285  663 
0286  663 
0287  663 
0288  663 
0289  663 
0290  663 
0291  663 
0292  663 
0293  663 
0294  663 
0295  663 
0296  663 
0297  663 
0298  663 
0299  663 
0300  663 
0301  663 
0302  663 
0303  663 
0304  663 
0305  663 
0306  663 
0307  663 
0308  663 
0309  663 
0310  663 
0311  663 
0312  663 
0313  663 
0314  663 
0315  663 
0316  663 
0317  663 
0318  663 
0319  663 
0320  663 
0321  663 
0322  663 
0323  663 
0324  663 
0325  663 
0326  663 
0327  663 
0328  663 
0329  663 
0330  663 
0331  663 
0332  663 
0333  663 
0334  663 
0335  663 
8336  663 


♦OPT I  ON  INDICATOR  PROCESSING  FINISHED 
980  CONTINUE 

♦IS  POWER  PROFILE  PRESENT  IF  NEEDED 
IF ( KPOW ) 1080 ♦ 1040,1080 
1040  IF(NSKPHT)1080*1050,1080 
1050  CALL  NETERR( 151*1) 

DEAD=1. 

1080  CONTINUE 
♦FINISHED 

RETURN 
END ( 0  *  1 »  0 ) 

************** 
♦DATPRO  SR  TO  PROCESS  INPUT  DATA  FOR 

*  GFP  663  GENERAL  FLOW  PASSAGE 

*  SC  skirvin 

* 

SUBROUTINE  DATPRO 

* 

♦BEGIN  STORAGE  MAP 
♦GENERAL  USEAGE 
DIMENSION 

1AFFI  (100  )»BSI  (11  S  »BSO  (1 
2CLSMDI ( 100  ),DHI  (100  )*DPARAM(8 
3FTABI  (8  ) »FPARMI ( 8  ) » HTAB I  (6 


0337  663 
0338  663 
0339  663 
0340  663 
0341  663 
0342  663 
0343  663 
0344  663 
0345  663 
0346  663 
0347  663 

**********  0348  663 

0349  663 
0350  663 
0351  663 
0352  663 
0353  663 
0354  663 
0355  663 
0356  663 
0357  663 

) »CLOSSI ( 100  ) »CLSGEN ( 100  I*  0358  663 
) 9DPARMI ( 8  ) »FMULTI ( 100  )»  0359  663 
) »HMULTI ( 100  ) » KRSCON ( 4  S*  0360  663 


4KPARAM ( 8  )*KPARMR(8  ) » NDH  (  100  5  » NAFL  (100  ) »NLEN  (100  )»  0361  663 


5NCLOSS ( 100  ) »NCLSMD ( 100  )*NRINGD(100  ),NHMULT(100  )»NFMULT(100  )»  0362  663 


60LENI  (100  ) » PHI  SUM ( 100  ),PHIEX  (100 

)  » 

PO  (100  )»P1 

(100 

)»  0363 

663 

7P2  (100  ) »THICKD( 100  )»TEXI  (100 

)  » 

XOLD  (100  )*BHIGH 

(12 

) »  0364 

663 

8HEDDUM( 12  ) »GMASS 

(100  ) »  TW  (100 

)  * 

REYNO  (100  )  »FR IC 

(100 

i  *  0365 

663 

9CONVEC ( 100 ) »DPINT(100),0MEXI (100) ,PRTGAS(9) 

0366 

663 

DIMENSION  PSEXI ( 100) 9PDYEXI ( 100) ,PEXI (100) 

0367 

663 

♦  BGO 

NON-SUBSCRIPTED* 

BG1 

SINGLE*  BG2  DOUBL 

E  9 

BG3  CLEANUP 

0368 

663 

EQUIVALENCE 

0369 

663 

1(AD  »BG0( 1 

)  ) 

» ( ACCMNO » BGO ( 2 

)  ) 

* (ACCPRS*BG0(3 

)  )  * 

0370 

663 

2( ACCTMP*BG0(4 

)  ) 

» ( ALLRUN»BGO( 5 

)  ) 

*  ( AUTOLS » BGO  (  6 

)  )■» 

0371 

663 

3 ( BD  *BG0 ( 7 

)  ) 

,  (BLANKS»BG0(8 

)  ) 

» ( BETA1  9BGO ( 9 

)  )  * 

0372 

663 

4 ( BETA2  *BG0( 10 

)  ) 

*<CIN  »  BGO ( 1 1 

)  ) 

9 ( CEX  9  BGO ( 12 

)  )  * 

0373 

663 

5 (DEAD  »BG0(13 

)  ) 

» ( DELH  , BGO (14 

)  ) 

* ( DERI V  9 BGO ( 15 

)  )  * 

0374 

663 

6 ( ENTRN  »BG0 ( 16 

)  ) 

» ( ENTRNC » BGO ( 17 

)  ) 

9(FD  9  BGO ( 18 

5  )  * 

0375 

663 

7 ( FT  IN  »BG0 ( 19 

)  ) 

9 ( FTOUT  » BGO ( 20 

)  ) 

9 (FSTPAR9BG0(21 

)  )  » 

0376 

6  6  3 

8 (GOAL  ♦ BGO (22 

)  ) 

* i GAS  » BGO ( 23 

)  ) 

» { H I N  9  BGO ( 24 

)  )  9 

0377 

66  3 

9 (  I  TRY  » BGO ( 25 

)  ) 

> ( KTRCRD  *  BGO ( 26 

)  ) 

, (KALCN0*BG0(27 

)  ) 

0378 

6f  •*> 

EQUIVALENCE 

0379 

6.  • 

1 ( KTCHAD9BGO ( 28 

)  ) 

»  «KTWADJ»BG0C29 

)  ) 

9 (KTCHT0*BG0(30 

)  )  * 

0380 

6;-  3 

2 (KPOW  »  BGO ( 3 1 

)  > 

9 { KOPT  * BGO (32 

)  > 

* (KOSCIL*BGO(33 

)  )  * 

0381 

6  *:  3 

3 ( KCHOKE » BGO ( 34 

)  ) 

9 ( KASE  » BGO ( 35 

)  ) 

* (KASTEP*BG0(36 

)  )  * 

0382 

66  3 

4 ( LOC  »  BGO ( 37 

)  ) 

» (LIMCHK»BG0(38 

)  ) 

» (LMCHTO9BG0(39 

)  )  » 

0383 

6  "•  * 

5(LIMTRY,BG0(40  - 

)  ) 

* (MORCAS*BGO(41 

)  ) 

9  <NSKPPR»BG0<42 

)  )  * 

0384 

6  v  3 

6(NSKPHT,BG0(43 

)  ) 

♦(NT  » BGO (44 

)  ) 

* ( NHOT  9  BGO ( 45 

)  )  * 

0385 

3 

7 ( NOPR T  ♦  BGO ( 46 

)  ) 

* (NOSTGE*BGO(47 

)  ) 

9 (PARPRT*BG0(48 

)  )  * 

0386 

663 

8 ( PRTSUM*  BGO ( 49 

)  ) 

* { RNK I N  » BGO ( 50 

)  ) 

9 (RNKOUT*BGO(51 

)  )  9 

0387 

663 

9 ( SVACMN » BGO ( 52 

)  ) 

9 ( SVACPR  » BGO ( 53 

)  ) 

*  CTOTLND*BGO(54 

)  ) 

0388 

663 

EQUIVALENCE 

0389 

663 

1(TRY0  » BGO ( 55 

)  ) 

9 ( TR Y1  9  BGO ( 56 

)  ) 

9 ( TRY  2  »  BGO ( 5  7 

)  )  * 

0390 

663 

2 ( TRY3  »BG0 ( 58 

)  ) 

* ( TEST1  *  BGO ( 59 

)  ) 

9  «TOTLEN9BG0(60 

)  )  9 

0391 

663 

ft 

3 ( WHI  *BG0 ( 61 

)  ) 

* ( WLO  9 BGO (62 

)  ) 

9 (YIELD0,BG0(63 

)  )  * 

.  0392 

663 

4! YIELD 1 » BGO (64 

)  ) 

» ( YI ELD2  9  BGO (65 

)  ) 

9 (NOINPT*BGO(66 

n* 

0393 

'663 

5  (  L I MPRS » BGO  (67  •  ))•»( PRTALL»  BGO  ( 6  8  )  )  *  (OMAXD  »  BGO  ( 69  )  V  * 

6 ( OMAX  »BG0 ( 7G ) )  » ( OMAX 1 »BGO ( 71 ) ) , ( KOPTH*  BGO ( 72 ) ) * 

7  (DMCONVT8GO (  5  )  DT( KD+* B+0 ( 76D4 

878) ) ,  (MAXTMP*BG0(79) ) * ( LMBULK*BGO( 80 J ) » (TBBULK»BG0( 81 )  )  » 

9 ( KCHK1 » BGO ( 1 ) ) , ( KCHK2 » BGO ( 7 ) ) * ( KCHK3 » BGO ( 18 ) ) * ( KGAS»BGO ( 82 ) ) 
EQUIVALENCE ( PDY IN*BG0 ( 73 ) ) » ( PDYEX  »  BGO ( 74 ) >  * ( OMINLT , BGO ( 83 ) ) , 

1 (OMEXIT,BGO( 84) ) » ( DPI N* BGO (85 ) ) * (DPEX*BG0(86 ) ) 

2  * ( TRANSF  »BGO ( 87 ) ) » ( TRANHL, BGO ( 88 ) ) » ( TRANHUtBGO ( 89 ) ) 

3  » (NEWSET  »  BG  0 ( 9  0  )  )  » ( KTPAR , BGO( 91 )  )  » ( KTOTPR  » BGO ( 92 ) ) » ( QBAR  »BGO { 93 ) ) 
4 ( QOQBAR » BGO ( 94 ) ) » ( NOGEOM ♦ BGO ( 95 ) ) 

EQUIVALENCE  ' 


KAFFD  ♦  BG1  (  2 
2  (  BSO  * BG1 ( 213 
3 ( CLSGEN » BG1 ( 337 

4  (  DHI  » BG1 ( 639 

5  (  FTABI  » BG1 ( 755 
6 ( GMASS  »BG1 ( 868 
7(HMULTI»BG 1(987 
8(KRSC0N*BG1( 1103 
9 ( NLEN  ‘  »BG1 ( 1307 

EQUIVALENCE 
1(NHMULT»BG1( 1607 

2  ( OLEN I  ♦BGK1908 

3  ( PO  »BG1  ( 2208 
4(TEXI  »BG1 ( 2508 
5 ( XOL  » BG1 ( 2808 


)  ) » ( AFFI  »BG1 ( 102 
))  » (BHIGH  »BG1 ( 224 
) ) » (CLSMDI »BG1 (438 
) ) * (DPARAM, BG1 (739 
) ) » ( FPARMI »BG1 ( 759 
))»(HTABI  »BG1 ( 968 
) ) » (KPARAM *BG1 ( 1087 
) ) » ( NDH  »BG1( 1107 
) ) » (NCL0SS»BG1 ( 1407 


) ) * ( BSI  ♦ BG1 ( 202 
> ) »(CL0SSI»8G1<237 
) ) * ( DHD  » BG1 ( 539 
) ) * (DPARMI ,BG1 (747 
) ) *(FMULTI*BG1(768 
)  )  »  (HEDDUM.BGK974 
) ) » ( KPARMR  »  BG1 (1096 
) ) » ( NAFL  *BG1 ( 1207 
) ) » (NCLSMD,BG1 (1507 


1 ( NHMULT »BG1 ( 160  7  ) ) » ( NFMULT »BG1 ( 1707  ) ) , (OLEND  »BG1(1808  )), 

2 ( OLEN I  »BG1 ( 1908  ) ) * ( PHISUM*BG1 ( 2008  ))*(PHIEX  »BG1(2108  ))»  X 

3(P0  »BG1  (  2208  ))»(Pl  *BG1(2308  ))»(P2  »BG1  •.  2408  )  )  * 

4 ( TEX  I  » BG1 ( 2508  ) ) » ( TW  ♦  BG1 ( 2608  ) ) * (XOLD  »  BG1 (2708  ) ) » 

5 (XOL  » BG1 ( 2808  ))»(REVNO  *BG1(2908  ))*(FRIC  ,BG1(3008  ))» 

6 ( C0NVEC,BG1 ( 3108 )), (DPI NT,BG1( 3208) ) »(OMEXI ,BG1( 3308) ) 

7  » ( PRTGAS»BG1 ( 3408 ) ) * ( PSEXI *BG1 ( 3417 ) ) » ( PDY EX I ♦ BG 1 ( 3517 ) ) 

*OPEN  AT  3617,  KEEP  OPEN  UNTIL  3700 

DIMENSION  KONOPT( 2  *10) »KONPAR (4* 13) »SAVTAB (13  » 100 ) »KSVTAB ( 13*100) 
EQUI VALENCE (KONOPT » KUP ♦ BG2) » (K0NPAR,BG2( 21 ) ) » 

1 ( SAVTAB* KSVTAB* BG2 ( 73 ) ) 

*OPEN  1373 

EQUIVALENCE(THICKD»BG3( 2 ) ) » ( NRINGD*BG3 ( 103 ) ) » (PEXI »BG3(203  )  ) 

EQU I VALENCE (COFFLM, FTABI ) » ( EXPFLM* FTABI (2 ) ) * ( COFFTB  » 

1FTABI ( 3 ) ) * ( EXPFTB* FTABI (4) ) 

* 

►BASIC  OPTIONAL  VARIABLES 

DIMENSION  GRTMPI (3) *GRTMP0(3 ) 

EQUIVALENCE ( PIN  » BSI ) * ( T IN* BSI ( 2 ) ) » ( TEX* BSI (3 ) ) * ( TWMAX » 

IBS  I (4) ) » ( PSEX  »  BSI ( 5 ) ) , ( PEX»BSI (6 ) ) » (W»  BSI ( 7) ) » (QTOT, 

2BSI (8) ) * (PIND,BSO) » (TIND»BS0(2) ) * ( TEXD » BSO ( 3 ) ) * ( TWMAX D» 

3BS0( 4 ) ) * ( PSEXD*  BSO( 5 ) ) , ( PEXD,BSO( 6 ) ) , (WD,BS0(7) ) * (QTOTD, 

4BS0 ( 8 ) ) »(PSXOPI »BSI (9) ) * (PTXOPI »BSI (10) )*( TEXOTI »BSI ( 1 1 5 ) , 

5( PSPlD»BSO( 9 ) ) * (PTPID»BSO( 10) ) , ( TXTID*BSO( 11 ) ) , 

6 ( GRTMP I » BSI ( 2 ) ) , (GRTMP0»BS0(2) ) 

t 

EQUIVALENCE ( C0FHLM»HTAB I ) » ( EXHPLM,HTABI (2) ) » ( EXHRLM  » 

1HTABI (3) ) » ( COFHTB »HT ABI (4) ) » ( EXHPTB »HT ABI (5) ) *  MXHRTB* 

2HTABK6)  )  ;  .;t  X 

EQUIVALENCE(DPTIN,DPARAM)  ,  ( DTT I  N»  DP  ARAM  ( 2  )  )  *  <  Dft  EX  *DP$jRAM  ( 3  J  )  » 

1 ( DTWMAX ♦ DPARAM ( 4 ) ) , ( DPSEX ,DPARAM ( 5 ) ) , ( DPTEX , DPARAM ( 6 )  f,  (DW, DPARAM ( 
27 ) ) » ( DQTOT  » DP ARAM (8 ) ) » ( NOPTIN .KPARAM ) , 

3 ( NOTT I N  »KPARAM ( 2 ) ) »( NOTTEX * KPARAM ( 3 ) ) » ( NOTWMX  »  NTWMAX  *  NOTWA  * 
4KPARAM( 4 ) ) * (NOPSEX  » KPARAM ( 5 ) ) » ( NOPTEX* KPARAM ( 6 ) ) » ( NOW* KPARAM { 7) ) , 

5  ( NOQTOT  »  KPARAM  (8)  )  /7D  ;  /■■■ 


0394  663 
0395  663 

0397  663 
0398  663 
0399  663 
040(1  663 
0401  663 
,0402  663 
0403  663 
0404  663 
0405  663 
0406  663 
0407  6$3 
0408  663 
0409  663 
0410  663 
0411  663 
0412  663 
0413  663 
0414  663 
0415  663 
0416  663 
0417  663 
0418  663 
0419  663 
0420  663 
0421  663 
0422  663 
0423  663 
0424  663 
0425  663 
0426  663 
0427  663 
0428  663 
0429  663 
0430  663 
0431  663 
0432  663 
0433  663 
0434  663 
0435  663 
0436  663 
0437  663 
0438  663 
0439  663 
0440  663 
0441  663 
0442  663 
0443  663 
0444  663 
0445  663 
0446  663 
0447  663 
0448  663 
0449  663 
0450  663 


* 

♦LIMITED  USEAGE 

DIMENSION  AFFD( 100) ,DHD< 100) »OLEND( 100 ) ,XOL( 100) 

EQUIVALENCE ( AFFD ♦ AFF i 2 ) ) * ( CLOSS I »CLOSS ( 2 ) ) » (CLSMDI »CLSMOD(2) ) ♦ 

1 ( DHD, DH ( 2 ) ) *<DH»DOUTER,ELPMAJ» WIDTH) , ( AFF .DINNER »ELPM IN* 

2 HEIGHT) ♦ (FMULTI »FMULT«2 ) ) * (HMULT I .HMULT ( 2 ) ) ,( ROUND » KRSCON ) , 

3 ( REC TNG » KRSCON ( 2 ) ) » ( ELLI PS *KRSCON ( 3 ) ) » ( RI NGS*  KRSCON ( 4 ) ) » 
4I0LEND* LENGTH ( 2 ) ) * ( NR I NGD* NORING ( 2 ) ) » ( NAFF  »NAFL ) » (THICKD* 

5TH ICK ( 2 )  )  »{PTIN»PIN)»(TTIN*TIN)»(PTEX*PEX)»(TEX»TTEX)» 
6(CASE»KASE) » < CASTEP , KASTEP ) »(DHD»DHG) » ( DH  »DHGSUB ) * ( AFF, 

7AFFSUB) » ( OLEND  *OL )»<  LENGTH  »OLSUB ) » ( ACCMNO ,PER ) » ( NOSTGE *MN ) , 
8(HTABI(4) »A1) , (FTABI (3) ,B1) * ( FTAB I (4) ,OM) , ( FMULT I  *  AKF ) »( HMULT I, 
9AKH) * (  Cl  N»C1 ) » ( CEX » C2  5 » ( PHI  SUM, A2 ) » ( PH  I  EX  »Q ) * ( NLEN  »NOL  ) 
EQUIVALENCE(NDH*NDHG) * (MAXMNO.OMAXD) 

♦ALL  MODIFIED  OFF-DESIGN ( ANP  443)  INPUT  VARIABLES 

*  ARE  IN  DIP  LIST,  FUNCTIONALLY  WHEREVER  POSSIBLE 

* 

*  *  *  MASTER  GROUPING 

DIMENSION  BG0( 100) ,BG1 <  3700 >  »BG2 ( 1372 ) »BG3(302)  , 

1BG ( 5474 ) 

EQ!J  I  VALENCE  (BG0»BG)  »  (  BG1  »BG  (  101 )  )  ,  (  BG2  ,BG  (  3801  5  )  ,  (  BG3  ,BG(  5173  )  ) 
COMMON  BG 

*  *  *  END  OF  MASTER  GROUPING 

♦END  OF  STORAGE  MAP 

* 

♦IS  THIS  A  PARAMETRIC  STUDY 
I F ( MORCAS ) 90,90,80 

♦IS  THIS  FIRST  PARAMETRIC  CASE 
80  IFfFSTPAR ) 1080, 1080,90 

♦EITHER  NCN-PARAM  OR  FIRST  PASS 
90  CONTINUE 

♦TRANSFER  FROM  INPUT  TO  PERM  TABLES 

CALL  DSTRBKBSI  ,  11  ,BSO ,0,0  ,KS IG  ) 

* 


♦CHECK  CROSS  SECTION  OPTIONS 
DO  110  ND= 1,4 
ND  =  ND 

IF « KRSCON (ND) ) 140,110,140 
110  CONTINUE 
♦NO  OPTION  EXERCISED 
KRT  =  1 

115  CALL  DSTRBKDHD, NOSTGE, DHI  ,0,0, KSIG) 

120  CALL  DSTRBKDHI  , NOSTGE, DHI  ,NDH, 2, KSIG) 

GO  TO( 125,150) ,KRT 

125  CALL  DSTRB1 (AFFD, NOSTGE, AFFI ,0,0, KSIG) 

130  CALL  DSTRBKAFFI  , NOSTGE, AFFI  ,NAFL, 2, KSIG) 
GO  TO  225 

♦CROSS  SECTION  OPTION- PROCESSING 
140  IF(ND-l) 145,145,150 
♦ROUND 

145  KRT=2 

GO  TO  115 
♦GENERAL 

150  DO  210  N=l» NOSTGE 
IF(N 0-1)155,155, 165 


♦ROUND 

.  155 'IF(DHI (N) >210,210,160 


11/ 


0451  663 
0452  663 
0453  663 
0454  663 
0455  663 
0456  663 
0457  663 
0458  663 
0459  663 
0460  663 
0461  663 
0462  663 
0463  663 
0464  663 
0465  663 
0466  663 
0467  663 
0468  663 
0469  663 
0470  663 
0471  663 
0472  663 
0473  663 
0474  663 
0475  663 
0476  663 
0477  663 
0478  663 
0479  663 
0480  663 
0481  663 
0482  663 
0483  663 
0484  663 
0485  663 
0486  663 
0487  663 
0488  663 
0489  663 
0490  663 
0491  663 
0492  663 
0493  bt 
0494  663 
0495  663 
0496  663 
0497  6-3 
0498  663 
0499  ou3 
0500  663 
0501  663 
0502  663 
0503  663 
0504  663 
0505  663 
0506  663 
0507  663 


160  AFFI(N)=.7854*DHI (N)**2 
GO  TO  210 
♦GENERAL 

165  IF(DHD(N) )170*170»167 
167  DHDLOC=DHD(N) 

* 

♦BACKSPACING  SECTION 
170  K 1=0 
K2  =  C 
<3  =  0 

DO  190  K  =  1»N 
KD=N  K+l 

IF(Kl)172,172,l76 

♦GENERAL 

172  IF(AFFD(KD)) 176 ,176,174 
174  AFFLOC=AFFD( KD) 

<1  =  1 

♦SPECIFIC 

176  I  F  ( 3  ND ) 178  » 190  *  190 
♦CONCENTRIC 

178  IF(K2) 180,180, 184 
♦THICKNESS 

180  IF«THICKD<KD) ) 184,184,182 
182  THKLOC=THICKD(KD) 

K2  =  l 

184  IF(K3) 186,186,190 
♦NO  OF  RINGS 

186  IF(NRINGD(KD) ) 190,190,188 
188  FRINGS=FLOATF(NRINGD(KD) ) 

K3=l 

190  CONTINUE 
♦BACKSPACING  FINISHED 
* 

♦SPECIFIC 

I F ( ND-3 )1 95, 200, 205 
♦RECTANGULAR 

195  AFFI(N5=DHDL0C*AFFL0C 

DH I ( N ) =2 •♦AFFI ( N ) / ( DHDLOC+AFFLOC ) 

GO  TO  210 
♦ELLIPTICAL 

200  AFFI(N)=.7854^DHDLOC*AFFLOC 

DH I f N)=1.80063*AFFI ( N ) /SQRTF ( DHDLOC**2+AFFLOC»*2 ) 
GO  TO  210 
♦CONCENTRIC  RINGS 

205  DHI ( N ) - DHDLOC-AFFLOC ) / ( FRINGS-1 • ) )-2.*THKLOC 
AFFI (N)=.3927*FRINGS*DHI ( N ) * (DHDLOC+AFFLOC) 

210  CONTINUE 

225  CONTINUE  " 

♦FINISHED  WITH  CROSS  SECTION  OPTIONS 


♦X/L  STAGE  LENGTH  OPTION 

250  IF(TOTLEN)251, 255,251 

♦X/L  STAGE  LENGTHS  LENGTHS  LOADED 

251  DO  254  N=l»NOSTGE 

I F { N  1)252,252,253 

252  OLENI (N)=XOLCN)*TOTLEN 
GO  TO  254 
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0508  663 
0509  663 
0510  663 
0511  663 
0512  663 
0513  663 
0514  663 
0515  663 
0516  663 
0517  663 
0518  663 
0519  663 
0520  663 
0521  663 
0522  663 
0523  663 
0524  663 
0525  663 
0526  663 
0527  663 
0528  663 
0529  663 
0530  663 
0531  663 
0532  663 
0533  663 
0534  663 
0535  663 
0536  663 
0537  663 
0538  663 
0539  663 
0540  663 
0541  663 
0542  663 
0543  663 
0544  663 
0545  663 
0546  663 
0547  663 
0548  663 
0549  663 
0550  663 
0551  663 
0552  663 
0553  663 
0554  663 
0555  663 
0556  663 
0557  663 
0558  663 
0559  663 
0560  663 
0561  663 
0562  663 
0563  663 

QAA&.  AA** 


253  OLENI ( N  )  =  ( XOL { N ) -XOL ( N-l ) ) *TOTLEN 

254  CONTINUE 

totlnd=totlen 

CALL  DSTRB1 ( XOL  »NOSTGE»XOLD»0»0  »K5I G ) 

GO  TO  258 

♦STAGE  LENGTHS  LOADED 

255  CALL  DSTRB1 (OLEND»NOSTGE»OLENI »0»0»KSIG) 
CALL  DSTRBKOlENI  *NOSTGE»OLENI  »NLEN  »2  »KSIG  ) 
TOTLND=0. 

DO  256  N=l*NOSTGE 

256  TOTLND=TOTLND+OLEN I ( N ) 

SUMLEN=0. 


DO  257  N=l»NOSTGE 
SUMLEN=SUMLEN+OLENI (N) 

XOLD(N)=SUMLEN/TOTLND 

257  CONTINUE 

♦STAGE  LENGTH  PROCESSING  FINISHED 

258  CONTINUE 

♦INTERSTAGE  LOSS  COEFFICIENTS 

CALL  DSTRB1 (CLSMDI »NOSTGE»CLSMDI *NCLSMD*2  » KSIG ) 
CALL  DSTRB1 ( C LOSS I »NOSTGE  »CLOSS I » NCLOSS *2 »  KS IG ) 
♦CHECK  PRES  RATIO  INPUT 
IF(PIN)266 #266*260 
IF(PEX)266«261,263 
IF (PTXOPI} 266, 263*262 
PEXD=PIN*PTXOPI 
I F  (,PsEX  )  266  *  264 » 266 
IF (PSXOPI ) 266 *266 *265 
PSEXD=PIN*PSXOPI 
CONTINUE 
♦CHECK  NEED  FOR  UNIT  CHANGES 
IF(FTIN)268»310»  268 
♦CHECK  FOR  LENGTH  UNIT  CHANGE  DELAY 
268  I F ( NOINPT 1270*269*270 
IFCPARPRT!270»274»270 
DO  272  N=l»NOSTGE 
DH I ( N ! =DHI ( N ) *12 • 

OLENI ( N } =OLEN I ( N ) *1 2 • 

AFFI ( N )=AFFI «N)*144. 

CONTINUE 

TOTLND=TOTLND*12. 


260 

261 

262 

263 

264 

265 

266 


269 

270 


272 


274  P£XD=PEXD/ 144 » 

PIND=PIND/144. 

PSEXD=PSEXD/144. 

310  IF|RNKIN)400»320,400 
320  CALL  CONTMP(GRTMPI *3* GRTMPO ♦ 1 ) 
400  CONTINUE 
♦CHECK  TEMP  RATIO  INPUT 
IF ( T IN  >440  *440*425 
425  I F ( TEX ) 440*430*440 
430  I F ( TEXOT I ) 440,440*435 
435  TEXD=T I ND*TEXOT I 
♦CHECK  FOR  QBAR  INPUT 

440  I F ( QOQBAR 1450,470,450 
450  I F ( QBAR  5  460*470*460 
460  QTOTD=QOQBAR*QBAR 
V. 9IPI»OT.OTP_  ;  ...  ui 
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0565  663 
0566  663 
0567  663 
0568  663 
0569  663 
0570  663 
0571  663 
0572  663 
0573  663 
0574  663 
0575  663 
0576  663 
0577  663 
0578  663 
0579  663 
0580  663 
0581  663 
0582  663 
0583  663 
0584  663 
0585  663 
0586  663 
0587  663 
0588  663 
0589  663 
0590  663 
0591  663 
0592  663 
0593  663 
0594  663 
0595  663 
0596  663 
0597  663 
0598  663 
0599  663 
0600  663 
0601  663 
0602  663 
0603  663 
0604  663 
0605  663 
0606  663 
0607  66 i 
0608  663 
0609  663 
0610  663 
0611  663 
0612  6>3 
0613  6b3 
0614  663 
0615  663 
0616  663 
0617  663 
0618  663 
0619  663 
0620  663 
6 f.3 


470  CONTINUE 

♦AUTOMATIC  DISTRIBUTION  OF  STAGE  LENGTH 
IF(OlEND( 1) 1500,580,500 
♦ARE  DOWNSTREAM  STAGE  LENGTHS  ZERO 
500  DO  5 3.0  N  =  2*NOSTGE 

IF(C;_ENDCN)  1510*510,580 
510  CONTINUE 

♦IS  ANY  DISTRIBUTION  SUPPLIED 
IF(NLEN(1) 1520*520,580 
520  DO  570  N=2  »NOSTGE 
♦IS  AN  EXIT  LOSS  COEFFICIENT  PROVIDED 
530  IF(CLOSSI(N) 1570,540,570 
♦CAN  LOSS  COEFFICIENT  BE  CALCULATED 
540  IF (AUTOLS 1550,560,550 
♦IS  THERE  AN  AREA  CHANGE 

550  I F ( Apr  I (Nl-AFFI (N-l) 1570,560,570 
♦SUPPLY  STAGE  LENGTH 
560  OLENI (N) =OLEND( 1 1 
570  CONTINUE 
'580  CONTINUE 
♦PROCESS  POWER  PROFILE 
KPOW=0 

DO  1030  N=l*NOSTGE 
IF<P0(N) 1990*990,1060 
990  IF «Pl INI  1 1000, 1000,1060 
1000  IFCP2IN1 11010,1010,1060 
1010  IF(PHISUM(N1 11030,1030,1020 
1020  KPOW=l 
1030  CONTINUE 

GO  TO  1080 

i INTEGRATE  TABULAR  PROFILE 

1060  CALL  POWER 3 (PHIEX»PHISUM,NOSTGE,OLENI ,P0,P1,P2 1 
KPOW=l 

1080  CONTINUE 
^PROCESSING  FINISHED 
RETURN 
END ( 0  *  1 »  0 1 

*********************** 
:DPFRLT  a  SR  TO  CALCULATE  PRESS  DROP  FOR  LALMINAR  OR  TURBULENT  FLOW 
WITH  OR  WITHOUT  ENTRANCE  LENGTH  EFFECTS 
GFP  663  GENERAL  FLOW  PASSAGE 
S  C  SKIRVIN 

USEAGE  -  CALL  DPFRLT ( IDENTIFICATION  WANTED ( =1  IF  YES)) 


0622  663 
0623  663 
0624  663 
0625  663 
0626  663 
0627  663 
0628  663 
0629  663 
0630  663 
0631  663 
0632  663 
0633  663 
0634  663 
0635  663 
0636  663 
0637  663 
0638  663 
0639  663 
0640  663 
0641  663 
0642  663 
0643  663 
0644  663 
0645  663 
0646  663 
0647  663 
0648  663 
0649  663 
0650  663 
0651  663 
0652  663 
0653  663 
0654  663 
0655  663 
0656  663 
0657  663 
0658  663 
0659  663 
0660  ,663 
0661  663 
0662  663 
0663  663 
0664  663 


0665  663 


SUBROUTINE  DPFRLT ( IDENT  1 

BEGIN  STORAGE  MAP 
GENERAL  USEAGE  .... 

DIMENSION 

1AFFI  (100  ) »BSI  (11  1 ,BSO  (11 

2CLSMDIC100  )»DHI  (100  >,DPARAM(8 
3FTABI  (8  1  » FPARM I  (  8  1  ,HTABI  (6. 

4KP ARAM ( 8  ),KPARMR(8  1 ,NDH  ,  (100 

5NCLOSS ( 1 00  ),NCLSMD(100  ),NRINGD(100 
60LEN I  (100  ) , PHI SUM( 100  ),PHIEX  (100 
'  7P2  (100  ) , TH I CKD( 100  ),TEXI  ( 100 

8HEDDUM( 12  1 ,GMASS  (100  ),TW  (100 


0666  663 
0667  663 
0668  663 
0669  663 
0670  663 

1 »CLOSSI ( 100  ) »CLSGEN ( 100  1,  0671  663 
)»DPARMI(8  ) »FMULT 1(100  ),  0672  663 
)»HMULTI(100  1 »(CRSCON (4  ),  0673  663 
1 »NAFL  (100  ) ,NLEN  (100  ),  0674  663 
) , NHMULT (  100  1 »NFMULT ( 100  ),  0675  663 
),P0  (100  )*P1  (100  )♦  0676  663 
),XOLD  (100  ),BHIGH  (12  1*  0677  663 
Ijt&gYNO  1100  )  ,FRIC  1100  0678  663 


*360 


DIMENSION  PSEXI (100) » PDYEX I ( 100) *PEXI  (100) 
NON-SUBSCRIPTED*  BG1  SINGLE*  BG2  DOUBLE*  BG3  CLEANUP 

EQUIVALENCE 

HAD  »BG0  (  1 

)  ) 

» ( ACCMNO»BGO(2 

)  ) 

. (ACCPRS»BG0(3 

) )  * 

2(ACCTMP*BG0(4 

)  ) 

* (ALLRUN* BGO (5 

)  ) 

» (AUTOLS»BGO(6 

)  )  » 

3 ( BD  *BG0 ( 7 

)  ) 

» (BLANKS,BG0(8 

)  ) 

* ( BETA1  ,BG0 ( 9 

4( BETA2  » BGO ( 10 

)  ) 

» ( Cl N  »BG0 ( 11 

) ) 

» ( CEX  *  BGO ( 12 

)  )  » 

5 (DEAD  »BG0(13 

)  ) 

» ( DELH  , BGO (14 

)  ) 

♦ (DERIV  ♦ BGO ( 15 

)  )  » 

6 ( ENTRN  »BG0(16 

)  ) 

, (ENTRNC»BGO( 17 

)  ) 

*(FD  » BGO ( 18 

)  )  » 

7 ( FT  IN  *BG0( 19 

)  ) 

, ( FTOUT  » BGO (20 

)  ) 

* (FSTPAR, BGO ( 2 1 

8 ( GOAL  *BGO( 22 

)  ) 

» ( GAS  » BGO ( 23 

)  ) 

» (HIN  *  BGO ( 24 

)  )  * 

9(1  TRY  » BGO (25 

)  ) 

» ( KTRCRD*BG0 ( 26 

)  ) 

* ( KALCNO*  BGO ( 27 

)  ) 

EQUIVALENCE 

1 ( KTCHAD*  BGO ( 28 

)  ) 

» ( KTWADJ»BGO ( 29 

)  ) 

»(KTCHTO»BG0(30 

)  )  » 

2 ( KPOW  »BG0 (31 

)  ) 

»  (  K.OPT  »BG0  (  32 

)  ) 

» ( KOSCIL»BGO( 33 

)  )  ♦ 

3 ( KCHOKE » BGO ( 34 

)  ) 

» ( KASE  »  BGO ( 35 

)  ) 

» ( KASTEP  »BG0 ( 36 

)  )  > 

4 ( LOC  » BGO ( 37 

)  ) 

♦ (LIMCHK»BG0(38 

)  ) 

♦ ( LMCHTO»BGO ( 39 

)  )  » 

5 ( L IMTRY » BGO ( 40 

)  ) 

, (M0RCAS*BG0(41 

)  ) 

»(NSKPPR*BG0(42 

)  )  » 

6 ( NSKPHT  *BG0 ( 43 

)  ) 

♦(NT  * BGO (44 

)  ) 

♦ ( NHOT  »BG0 ( 45 

)  )  » 

7 ( NOPRT  ♦ BGO (46 

)  ) 

» (NOSTGE*BGO(47 

)) 

» (PARPRT*BG0(48 

)  ) » 

8 ( PRTSUM, BGO ( 49 

)  ) 

» ( RNKIN  *  BGO ( 50 

)  ) 

* ( RNKOUT  *  BGO ( 5 1 

)  )  » 

9 ( SVACMN*  BGO (52 

)  ) 

* (SVACPR»BG0(53 

)  ) 

. ( TOTLND*  BGO ( 54 

)  ) 

EQUIVALENCE 

1(TRY0  » BGO ( 55 

)  ) 

♦  ( TRY1  »  BGO ( 56 

)  ) 

» ( TRY2  »  BGO ( 57 

)  )  » 

2(TRY3  » BGO ( 58 

) ) 

» ( TEST1  »  BGO ( 59 

)  ) 

» (TOTLEN*BGO( 60 

)  )  > 

3 ( WHI  »BG0 (61 

)  ) 

» ( WLO  » BGO (62 

)  ) 

. (YIELD0*BG0(63 

)  )  » 

4( Y I ELD1 *BG0 ( 64 

)  ) 

* ( YIELD2»BG0(65 

)  ) 

» (NOINPT.BGO(66 

)  ) » 

5(LIMPRS»BG0(67 

)  ) 

» ( PRTALL»BGO ( 68 

)  ) 

» (OMAXD  » BGO (69 

)  )  » 

6 ( OMAX  »BGO ( 70 ) ) , (OMAX1 *BG0( 71 ) ) * ( KOPTH »BG0 ( 72 )  )  ♦ 

7  ( DMCONV  *BG0 ( 75 ) ) * (KDI»BG0(76 ) ) ♦ ( KDD»  BGO ( 77 ) ) » (TRYMAX»BGO 

878) )  9  ( MAXTMP  »BG0 ( 79 ) ) » ( LMBULK  »BG0 ( 80 ) ) » ( TBBULK  »BG0 ( 81 ) ) * 

9 ( KCHK1 9  BGO ( 1 ) ) * < KCHK2*BG0( 7) ) ♦ ( KCHK3» BGO ( 18 ) ) * ( KGASsBGO ( 82 ) ) 
EQUIVALENCE (PDY I N»BG0( 73 ) ) » ( PDYEX  »BG0 ( 74 ) ) * (OMI NLT »BGO ( 83 ) ) * 
1(OMEXIT»BGO(84) ) » ( DPI N, BGO ( 85 ) ) * ( DPEX , BGO ( 86 ) ) 

2  * ( TRANSF  *  BGO (87) ) »(TRANHL»BG0(88) ) * (TRANHU»  BGO ( 89 ) ) 

3* ( NEWSET »BGO( 90 )  )  *  ( KTPAR » BGO ( 91 )  )  »  ( KTOTPR*  BGQ( 92 ) ) * ( QBAR»BGO ( 93 ) ) 
4 ( QOQBAR  *BGO ( 94 ) ) » ( NOGEOM*BGO ( 95 ) ) 

EQUIVALENCE 

)  )  *  ( AFFI  »BG1 ( 102 


KAFFO 

2CBS0 


*BG1 ( 2 
♦  BGK213 


) ) » ( BHIGH  » BG1 ( 224 


)  ) 
)  ) 


» ( BS I  *BG1 1  202 
* (CLOSSI »BG1(237 


m 


3 ( CLSGEN»BG1 ( 
4 ( DH I  »BG1 ( 
5 ( FTAB I  *BG 1 ( 
6 ( GMASS  »BG1 ( 
7 ( HMULTI »B61 ( 
8 ( KRSCON » BG1  ( 
9 ( NLEN  *BG1< 
EQUIVALENCE 
1 ( NHMULT  »BG1 ( 
2 ( OLEN 1 1  *  BG1  ( 
3 ( PO  *BG1( 
4( TEX  I  ,BG1( 
5 (XOL  *BG1( 

6(C0NVEC»BG1( 
7  » (PRTGAS.R&4 


337 

639 

755 

868 

987 

1103 

1307 


)  ) 
)  ) 
)  ) 
)  ) 
)  ) 
>  ) 
)  ) 


1607 
1908 
2208 
2508 
2808 
3108)  )♦ 
(  » 


)  ) 
)  ) 
)  ) 
)  ) 
)  ) 


* (CLSMDI »BG1 (438 
* (DPARAM»BG1(739 
* (FPARMI*BG1(759 
» ( HTABI  »  BG1 ( 968 
♦ ( KPA RAM ♦ BG1 ( 1087 
»  ( NDH  »BG1 ( 1107 
* (NCL0SS»BG1( 1407 

»(NFMULT»BG 1(1707 
» ( PHISUM*  BG1 (2008 
»(P1  »  BG1 ( 2308 

»  (  TW  ...» BG1  (2608 
» (REYNO  »BG1 ( 2908 


) ) » ( DHD  *BG1 (539 
) ) » (DP ARM I »BG1 (747 
) ) » (F MULT  I »BG1 (768 
) ) » (HEDDUM,BG1(974 
) ) » ( KPARMR  »BG1 ( 1095 
j  )  *  ( NAFL  ♦BGK1207 
) ) »(NCLSMD,BG1(1507 


) ) » (OLEND 
) ) »(PHIEX 
) ) * (P2 
) ) »(XOLD 
) ) » (FRIC 


♦  BG1  ( 1808 
»BG1 (2108 

♦  BGK2408 
*BG1 (2708 
»BG1 ( 3008 


(DPI  NT  *BG1 ( 3208 ) ) * ( OMEX I » BG1 ( 3308 ) ) 

(PAFVT  *  Rfvl  (  -a  A  171  1  -  f  DfiVrY  I.oci  »  o  cm  » 


)  ) 
)  ) 

)  ) 
)  ) 
)') 
)  ) 
)  ) 
)  ) 
)  ) 

)  ) 
)  ) 
)  ) 
)  ) 
)  ) 


0679 

0680 

0681 

0682 

0683 

0684 

0685 

0686 

0687 

0688 

0689 

0690 

0691 

0692 

0693 

0694 

0695 

0696 

0697 

0698 

0699 

0700 

0701 

0702 

0703 

0704 

0705 

0706 

0707 

0708 

(0709 

0710 

0711 

0712 

0713 

0714 

*0715 

0716 

0717 

0718 

0719 


663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 


0720  663 
0721  663 
0722  663 
0723  663 
0724  663 
0725  663 
0726  663 
0727  663 
0728  663 
0729  663 
0730  663 
0731  663 
0732  663 
0733  663 


♦OPEN  AT  3617 ♦  KEEP  OPEN  UNTIL  3700 

DIMENSION  KONOPT (2* 10 ) »KONPAR (4*13) ,SAVTAB( 13,100) >KSVTAB( 13*100) 
EQUIVALENCE CKONOPT»KUP,BG2) » ( KONPAR»BG2 (21 ) ) » 

1 ( SAVTAB » KSVT AB»  BG2 ( 73 ) ) 

♦OPEN  1373 

EQUIVALENCE (THICKD»BG3( 2) ) ,  ( NRINGD, BG3 ( 103 ) ) * (PEXI »BG3(203) ) 

* 

EQUIVALENCE ( COFFLM*  FTAB I) » ( EXPFLM  »  FTAB I (2) ) * ( COFFTB  » 

1FTABI (3) ) *<EXPFTB»FTABI (4) ) 

* 

♦BASIC  OPTIONAL  VARIABLES 

DIMENSION  GRTMPI (3) *GRTMPO(3) 

EQUIVALENCE ( PIN *BSI )  *(TIN,BSI ( 2 ) ) » ( TEX  »BS I ( 3 ) ) » ( TWMAX  » 

IBS  I ( 4 ) ) » (PSEX,BSI(5 ) ) *(PEX»BSI (6) ) , (W,BSI (7 ) ) * (QTOT  » 

2BSI (8 ) ) » (PIND»BSO) ,  ( TlND»BSOt 2 ) ) ♦ ( TEXD»BSO(3 ) ) » ( TWMAX D  » 

3BSO ( 4 ) ) » (PSEXD»BSO(5 ) ) , (PEXD»BS0( 6 ) ) , (WD,BSO(7)) * (QTOTD » 

4BS0 ( 8 ) ) » (PSXOPI *BSI (9) ) ♦ (PTXOPI ,BSI ( 10) ) ♦ (TEXOTI *BSI (11 ) ) » 

5 ( PSP ID»BSO( 9 ) ) » (PTPID*BSO( 10) ) * (TXTID»BSO( 11 ) ) * 

6 ( GRTMP I »  BSI ( 2 ) ) » (GRTMPO  »BSO ( 2 ) ) 

* 

EQUIVALENCE (COFHLM»HTABI ) » { EXHPLM » HT AB 1(2) ) * ( EXHRLM » 

1HTABK3)  5 » ( COFHTB»HT  ABI  (4)  )  »  (  EXHPTB»HT  ABI  (5)  )*<EXHRTB» 

2HTABI (6) ) 

EQUIVALENCE (DPT  I N» DP ARAM ) » ( DTTIN»DPARAM(2 ) ) » ( DTTEX * DP ARAM ( 3 ) ) » 

1 ( D TWMAX » DPARAM( 4 ) ) » < DPSEX,DPARAM< 5 ) ) » ( DPT EX  »  DPARAM ( 6 ) ) » ( DW  »  DPARAM 
27 ) ) » ( DQTOT  » DPARAM ( 8 ) ) » ( NOPTI N  »KPARAM ) » 

3(NOTTIN*KPARAM(2) ) » ( NOT TEX »KP ARAM ( 3 ) ) »  < NOTWMX *NTWMAX »NOTWA» 
4KPARAM ( 4  5 ) » ( NOPSEX » KPARAM ( 5 ) ) » ( NOPTEX  »  KPARAM ( 6 ) ) » ( NOW  »KPARAM ( 7 ) ) , 
5 ( NOQTOT  »  KPARAM ( 8 ) ) 

* 

♦  ♦  ♦  MASTER  GROUPING 

DIMENSION  BG0( 100 ) »BG1 ( 3700 )♦ BG2 ( 1372 ) >BG3(302 ) » 

1BG ( 5474 ) 

EQUIVALENCE (BG0»BG) ,< BG1,BG( 101 )),< BG2 * BG <  3801 ))♦ (  BG3»BG( 5173) ) 
COMMON  BG 

*  END  OF  MASTER  GROUPING 

EQUIVALENCE (COFFLM* FTAB I ) * ( EXPFLM » FTABI (2) ) »( COFFTB »FTABI ( 3 ) ) » 

1 ( EXPFTB»FTABI (4) ) » ( ND*NOSTGE ) » ( G»GMASS ) * ( REAVG*REYNO ) » 

2 ( OMEX  »OMEXI ) 

DIMENSION  G( 100 ) *REAVG ( 100 ) *OMEX( 100) 

♦END  OF  STORAGE  MAP 

* 

ND=NOSTGE 

♦IS  IDENTIFICATION  REQUESTED 
IF( IDENT)95»95»90 
90  PRINT  32000 

32000  FORMAT 
SPACE  2 

♦  ♦  THE  PRES  DROP  SR  ( DPFRLT )  IS  BASED  ON  THE  OFF  DESIGN  *  ♦ 

♦  ♦  ANALYSIS  AND  REQUIRES  UPSTREAM  PRESSURES  *  ♦ 

END  OF  FORMAT 
GO  TO  96 


* 

* 


95  CONTINUE 
♦INITIALIZATION 


i/  /“  i  A 


/ 


0735 

663 

0736 

663 

0737 

663 

0738 

663 

0739 

663 

0740 

663 

0741 

663 

0742 

663 

0743 

663 

0744 

663 

0745 

663 

0746 

663 

0747 

663 

0748 

663 

0749 

663 

0750 

663 

0751 

663 

0752 

663 

0753 

663 

0754 

663 

0755 

663 

0756 

663 

0757 

663 

0758 

663 

(0759 

663 

0760 

663 

0761 

663 

0762 

663 

0763 

663 

0764 

663 

0765 

663 

0766 

663 

0767 

663 

0768 

663 

0769 

663 

0770 

663 

0771 

663 

0772 

663 

0773 

663 

0774 

663 

0775 

663 

0776 

663 

0777 

663 

0778 

663 

0779 

663 

0780 

663 

0781 

663 

0782 

663 

0783 

663 

0784 

663 

0785 

663 

0786 

663 

0787 

663 

0788 

663 

0789 

663 

0790 

A*»  A  1 

663 

c  c  r* 

SUMLEN=0. 

OMAX=0. 

♦ST AGE  BY  STAGE 

96  DO  820  N=1 »ND 
KTPRS=1 

♦WAS  IDENTIFICATION  REQUESTED 
I F ( IDENT)98,98»200 
♦NORMAL  SEQUENCING 
♦FIRST  STAGE  ONLY 

98  I F ( N  1)100*100,120 

100  OMIN=AMACH( .1*G<1) »PIND,TIND*ACCMNO,GAS ) 
OMINLT=OMIN 
0MAX=MAX1F(0MAX»0MIN  ) 

IF ( ,9-OMIN)  10000,10000,102 
102  PDYIN*DYPRS(G(1) ,PIND,TIND,OMIN,GAS) 
♦CHECK  ENTRANCE  LOSS 

IF(CIN)106*104*106 
104  P I N I=P IND 
DPIN=0. 


GO  TO  108 
106  DPIN=CIN*PDYIN 
PINI=PIND-DPIN 

OM  IN=AMACH ( OMIN »G(  1 ) ,PINI ,TIND,ACCMNO,GAS ) 

0MAX=MAX 1 F ( OMAX ,0M I N ) 

IF( ,9-OMIN) 10000,10000,108 
108  TINI=TIND 
GO  TO  130 

♦SUBSEQUENT  STAGES  ONLY 

120  OMIN=AMACH (OMEXI (N) »G(N) *PINI ,TINI , ACCMNO ,GAS ) 
OMAXrMAXlF(OMAX,OMIN) 

IF ( ,9-OMIN) 10000,10000,130 
♦ALL  STAGES 
130  CONTINUE 

IFfOLENI (N) ) 132*132,133 

132  PEX I ( N ) =P IN  I 
FRIC(N)=0.0 
GO  TO  740 

133  IF(DHI«N) )134, 134,136 

134  REAVG ( N ) =0* 

GO  TO  132 

136  OMEXl =1,0 5 ♦OMIN 

I F  C ,9-OMEXl ) 140*140,150 
140  OMEXl=,899 
150  OMAVG® (OMEX1+OMIN )/2* 

TAVG=(TEXI (NJ+TINI ) /2. 

REAVG ( N ) =G ( N ) ♦DHI ( N ) *12 . /VISC ( TAVG  »GAS ) 
SUMLEN=SUMLEN+OLENI ( N ) 

♦OBTAIN  FRICTION  FACTOR 

200  FR IC( N ) =FRCFAC ( REAVG ( N ) ,DHI (N) »SUMLEN»COFFLM»EXPFLM 
1C0FFTB»EXPFTB,BETA1,BETA2,ENTRNC» IDENT ) 

2*FMULTI (N) 

♦WAS  IDENTIFICATION  REQUESTED 
IF ( IDENT) 210,210*860 
♦NORMAL  CONTINUATION 
210  CONTINUE 


pbarn=pini 

C,PFMA<t=r£GAM  ( TAVG, GAS  )  /2  .  )  * 


, 


0792  662 
0793  662 
0794  662 
0795  66- 
0796  662 
0797  662 
0798  662 
0799  662 
0800  662 
0801  662 
0802  662 
0803  662 
0804  663 
0805  663 
0806  663 
0807  663 
0808  663 
0809  663 
0810  663 
0811  663 
0812  663 
0813  663 
0814  663 
0815  663 
0816  663 
0817  663 
0818  663 
0819  663 
0820  663 
0821  663 
0822  663 
0823  663 
0824  663 
0825  663 
0826  663 
0827  663 
0828  663 
0829  663 
0830  663 
0831  663 
0832  663 
0833  663 
0834  663 
0835  663 
0836  663 
0837  663 
0838  663 
0839  663 
0840  663 
0841  663 
0842  663 
0843  663 
0844  663 
0845  663 
0846  663 
0847  663 
0848  663 


KLOGFdEXI  (Ni/TINI ) + ( 4.*FR I C ( N ) *OLENI  (N)/DHI  <N>  )  ) 

680  REX  I <N)=PINI*EXPF(C0FMAC*0MAVG**2> 

OMEX { N ) =AMACH { 0MEX1 *G ( N ) »PEXI (N ) *  TEXI ( N ) * ACCMNO*GAS ) 
OMAX=MAXlF ( OMAX  »OMEX ( N ) ) 

I F  C • 9—OMEX ( N ) ) 10000,10000,700 

10000  kchoke=n 

GO  To  890 

700  IF(ABSF«  CPEXI  (N  )-PBARN)  /PE'XI  (N)  )-ACCPRS)740»740»710 
*HAS  COUNTER  LIMIT  BEEN  EXCEEDED 
710  IF (LIMPRS-KTPRS)720,730,730 
720  CALL  NETERR  ( 180  »N ) 

SENSE  LIGHT  2 
GO  TO  890 
730  KTPRS=KTPRS+1 

OMAVG=(OMIN+OMEX«N)) /2. 

OMEXl=OMEX(N) 

PBARN=PEXI (N) 

GO  TO  680 

*CALC  EXIT  DYNAMIC  PRESSURE 

740  PDYEX I( N ) =DYPRS  ?G ( N ) »PEXI ( N ) ,TEX I ( N )  *OMEX ( N ) »GAS ) 

*IS  THIS  THE  LAST  STAGE 

I F { ND~N )780»780»750 
*IS  AUTO  LOSS  CALC  WANTED 
750  I F { AUTOLS  5780,780,755 
*DOES  AREA  CHANGE 

755  IFIAFFI  (N)/AFFI  (N+D— 1.  )757»780»756 

756  KLOSS=l 
GO  TO  760 

757  KLOSS=3 

*IS  AUTO  LOSS  MODIFIER  DIFFERENT  THAN  ZERO 
760  IFICLSMDI (N)S 765 »780»765 
*CALC  AUTO  LOSS  COEFF 

765  CALL  LOSSIAFFI (N) ,AFFI (N  1) »KLOSS»OMEX(N) ,DUM1,DUM2» 
1DUM3 9CLSGEN ( N ) ) 

DP  I NT ( N ) -CLSGEN ( N ) *CLSMDI ( N ) *PDYEX I ( N ) 

GO  TO  810 

^REGULAR  INTERSTAGE  LOSS  CALC 
780  IF(CLOSSI «N)}790»800»790 
790  DPINT(N5=CLOSSI IN)*PDYEXI <N> 

GO  TO  810 
800  DPINT?N)=0, 

810  PINUPEXI  «N)-DPINT(N  ) 

OMINsOMEXfN) 

T I Nl =TEX I(N) 

820  CONTINUE 

*STAGE“BY-STAGE  CALCULATIONS  FINISHED 
*SET  EXIT  MACH  NO 

830 


840 

*EXIT 
850 
*EX  I T 


I F ( DP INT  C  ND I  1 840 » 830 » 840 
OMEXI T=OMIN 
PDYEX=PDYEXI (ND) 

GO  TO  850 

OMEXI T  =  AM ACH ( OMI N  »G ( ND ) *PINI ,TINI » ACCMNO,GAS ) 
PDYEX  =  DYPRS ( G ( ND  5 »P I N I » T I N I »OMEX I T » GAS ) 

STATIC  PRESSURE 

PSEXD=PSTAT(PINI »TINI >OMEXIT,GAS) 

LOSS  CALC 
IF (OFX  >R70«RfiO«870 


/  7/ 


0849  663  m 
0850  663  1 

0851  663  P 
0852  663 
0853  663  I 
0854  663  1 

0855  663  1 

0856  663  f 
0857  663  IP- 
0858  663  r 
0859  663  p: 
0860  663  i 
0861  663  *"• 

0862  663 
0863  663  ;-x 

0864  663 
0865  663 
0866  663 
0867  663 
0868  663 
0869  663 
0870  663 
0871  663 
0872  663 
0873  663 
0874  663 
0875  663 
0876  663 
0877  663 
0878  663 
0879  663 
0880  663 
0881  663 
0882  663  1 
0883  663 
0884  663 
0885  663 
0886  663 
0887  663 
0888  663 
0889  663 
0890  663 
0891  663 
0892  663  ‘ 
0893  663 
0894  663 
0895  663 
0896  663 
0897  663 
0898  663 
0899  663 
0900  663 
0901  663 
0902  663 
0903  663 
0904  663 
0905  663 


860  DPEX=0. 

GO  TO  880 

870  DPEX=CEX*PDYEX 
880  PEXD=PINI-DPEX 
♦SR  FINISHED 
890  CONTINUE 
RETURN 
END  ( 0  s  0 »  0 ) 

****  ***  ********  *  *  ****** 
CFRCFACOOA  FUNCTION  TO  EVALUATE  FRICTION  FACTORS 

*  FOR  GFPJANP  663) 

♦USEAGE  “  FRCFAC ( REY  NO,  HYDR  DIAM,  DISTANCE  FROM  ENTRANCE, 

*  COEFF  LAM,  EXP  LAM,  COEFF  TURB,  EXP  TURB,  LAM  ENTRANCE 

*  COEFF,  TURB  ENTRANCE  COEFF,  ENTRANCE  EFFECT  WANTED 

*  (=1  IF  YES),  IDENTIFICATION  WANTED ( =1  IF  YES)) 

FUNCTION  FRCFAC ( REYNO »DH »SUMLEN »COFFLM » EXPFLM , 

1COFFTB  sEXPFTB  »BETA1»BET  A2  »ENTRN , I  DENT ) 

♦BEGIN  STORAGE  MAP 

*  *  *  MASTER  GROUPING 

DIMENSION  BG0( 100) ,BG1( 3700 ) ,BG2( 1372) ,BG3(302) , 

1BG(5474) 

EQU I VALENCE ( BGO, BG ), (BG1,BG( 101 )),( BG2 , BG ( 3801 ))♦ ( BG3»BG(5173) 
COMMON  BG 

*  *  *  END  OF  MASTER  GROUPING 

EQUI VALENCE (TRANSF, BGO (87) ) , ( TRANHL  »BG0 (89 ) ) , ( TR ANHU  »BGO ( 90 ) ) 
♦END  OF  STORAGE  MAP 
♦IS  IDENTIFICATION  REQUESTED 
IF(I DENT )120, 120, 100 
100  PRINT  32000 

32000  FORMAT  . 

SPACE  2 

♦  *  THE  LENGTH-DEPENDENT  FRICTION  FACTOR  *  * 

♦  *  IS  CALCULATED  FROM  *  * 

♦  F»F®=F»F» ( INF ) ♦ ( 1  BETA 1*N ( RE ) * ( DH/LEN )  )  ( N ( RE )  LESS  OR  =  2300) 

♦  F®F®=F*F«  C INF)*( 1  BETA2*(DH/LEN ) )  ( N ( RE )  MORE  THAN  2300) 

END  OF  FORMAT 
GO  TO  190 
♦TRANSITION  TEST 

120  IFCREY NO )122, 122,124 
122  FRCFAC=0. 

GO  TO  190 

124  IFfREYNO-TRANSF) 130,130,160 
♦LAMINAR 

130  FRCFAC=COFFLM*REYNO**EXPFLM 
♦IS  ENTRANCE  LENGTH  EFFECT  REQUESTED 
IFIENTRN >190,190, 140 
♦IS  LENGTH  FACTOR  PRESENT 
140  I.FIBETA1 )  150,190,150 
♦CALC  ENTRANCE  EFFECT 

150  FRCFAC55  FRCFAC*  ( 1  •  +  (BETA1*REYN0*DH/SUMLEN  )  ) 

GO  TO  190 
♦TURBULENT 

160  FRCFAC=COFFTB*REYNO**EXPFTB 
♦IS  ENTRANCE  LENGTH  EFFECT  REQUESTED 
I F ( ENTRN  >190,190,17  0 

♦IS  LENGTH  FACTOR  PRESENT  ^ 

::  170  IFtBETA2'S  180,190*180  7  7  / 


0906  663 
0907  663 
0908  663 
0909  663 
0910  663 
0911  663 
0912  663 
0913  663 
*  0914  663 

0915  663 
0916  663 
0917  663 
0918  663 
0919  663 
0920  663 
0921  663 
0922  663 
0923  663 
0924  663 
0925  663 
0926  663 
0927  663 
0928  663 
0929  663 
0930  663 
0931  663 
0932  663 
0933  663 
0934  663 
0935  663 
0936  663 
0937  663 
0938  663 
0939  663 
0940  663 
0941  663 
0942  663 
0943  663 
0944  663 
0945  663 
0946  663 
0947  663 
0948  663 
0949  663 
0950  663 
0951  663 
0952  663 
0953  663 
0954  663 
0955  663 
0956  663 
.0957  663 
0958  663 
0959  663 
0960  663 
0961  663 
0962  663 


♦CALC  ENTRN  EFFECT 
180  FRCFAC=FRCFAC* 

♦FINISHED 

190  CONTINUE 
RETURN 
END ( 0  *  1 9  0 i 

******** 

♦INITAL  SR  TO  PERFORM 

*GFP  663  GENERAL  FLOW 

*  S  C  SKIRVIN 

* 

SUBROUTINE  INITAL 

* 

♦BEGIN  STORAGE  MAP 

♦GENERAL  USEAGE 
DIMENSION 
1AFFI  (100 
2CLSMDI (100 
3FTABI  (8 
4KPARAM(8 
5NCLOSSC 100 
60LENI  (100 
7P2  (100 

8HEDDUMC12 


l.+BETA2*DH/SUMLEN ) 


*  *  * 
PRE-LOAD 
PASSAGE 


****** 
INITIALIZATION  FOR 


)9BSO  (11 
)  »DPARAM ( 8 
3  »  HT  AB I  (6 
3  » NDH  (100 
} »NRINGD( 100 
3  *  PHI  EX  (100 
3  9  TEX  I  (100 
3  » TW  (100 


*BG0 


)»BSI  (11 
3»DHI  (100 
) sFPARMI (8 
) »KPARMR ( 8 
3  *NCLSMD( 100 
3  tPHISUMJ 100 
) »THICKD( 100 
) »GMASS  (100 
9CQNVEC ( 100 J »DPINT(100) »OMEXI (  100  3  »PRTGAS(9  3 
DIMENSION  PSEXI { 100 ) 9PDYEXI  ( 100)»PEX 1(100) 
NON-SUBSCRIP TED »  BG1  SINGLE »  BG2  DOUBLE »  BG3 
EQUIVALENCE 

3  3  » (ACCMN0»BG0(2 
3  3  9 ( ALLRUN»BGO( 5 
} 3  » (BLANKS»BG0(8 
) 3  » ( Cl N  »BG0C11 
3 ) » ( DELH  9 BGO ( 14 
) 3  » (ENTRNC?BG0(17 
3  3  » (FTOUT  »BGO( 20 


) »CLOSSI C 100 
)  9 DPARM 1(8 
)  sHMULTI ( 100 
)»NAFL  (100 
) jNHMULT ( 100 
)*P0  (100 

)  9 XOLD  (100 
3  jREYNO  (100 


3  tCLSGEN ( 100 
) sFMULTI ( 100 
3  s.KRSCON  ( 4 
) sNLEN  (100 
3  sNFMULT (100 


»P1 

9BHIGH 

9FRIC 


( 100 
( 12 
( 100 


CLEANUP 


HAD  9BG0(1 
2 ( ACCTMP » BGO ( 4 


9  BGO  ( 7 
9BG0( 10 
9BG0« 13 
9 BGO ( 16 
»BGO( 19 
9 BGO (22 
9  BGO (25 


3  (  BD 
4 ( BETA2 
5 (DEAD 

6  ( ENTRN 

7  (  FT  I N 
8 (GOAL 
9 ( ITRY 

EQUIVALENCE 
1  (KTCHAD»BGO'(  28 
2 ( KPOW  9 BGO ( 31 
3  (  KCHOKE9BGO ( 34 
4 ( LOC  9 BGO ( 37 
5 ( LIMTRY  9  BGO ( 40 
6 ( NSKPHT  9  BGO ( 43 
7 ( NOPRT  9 BGO (46 
8 ( PRTSUM  9  BGO ( 49 
9 ( SVACMN  9  BGO  (  52 
EQUIVALENCE 
1(TRY0  9  BGO ( 55 
2(TRY3  9 BGO ( 58 
3 ( WHI  9BG0(61 

4(YIELDl9BG0(64 
5 ( LIMPRS9BG0(67 


3  ) 
3  ) 

3  > 
3  ) 
3  ) 


3  3  9 ( GAS  9  BGO ( 23 
) ) 9 (KTRCRD9BG0(26 

3  3  9 (KTWADJ9BG0(29 
3)S(K0PT  9BGO ( 32 
3  3  9  ?  KASE  9  BGO ( 35 
3  3  9 ( L I MCHK9 BGO ( 38 
3  3  9 (MORCAS9BGO(41 
))»(NT  9  BGO ( 44 

3  3  9 (NOSTGE9BGO(47 
3  3  9 ( RNKIN  9 BGO ( 50 
3  3  9 (SVACPR9BG0I53 


9 (ACCPRS9BG0(3 
9 ( AUTOLS  9  BGO ( 6 
9(BETA1  9  BGO ( 9 
9(CEX  9  BGO ( 12 
9(DERIV  9 BGO ( 15 
3  3  9 ( FD  9 BGO ( 18 
3  3  9 (FSTPAR9BG0(21 
3  3  9 ( H I N  9  BGO ( 24 

3  3  9 (KALCNO9BG0(27 


3  3  9 ( KTCHTO  9  BGO  C  30 
3  3  9 (KOSCIL9BGO(33 
3  3  9 (KASTEP9BG0(36 
3  3  9 (LMCHTO9BG0(39 
3  3  9 ( NSKPPR  9  BGO ( 42 
)>9(NH0T  9 BGO (45 

3  3  9 (PARPRT9BG0(48 
3  3  9 (RNK0UT9BG0(51 
5  3  9 ( TOTLND9  BGO ( 54 


%0 


»(TRY1  9  BGO ( 56 
9(TEST1  9BGO ( 59 
9(WL0  9  BGO ( 62 

9 ( Y I ELD2  9BGO (65 
3  3  9 (PRTALL9BGO (68 

6 ( OMAX  9BGO {  70  3  3  9 i 0MAX1 9 BGO ( 71 3  3  9 ( KOPTH 9 BGO ( 72  3  >  9 

7  ( DMCONV  9 BG 0(753  ) 9 ( KDI 9  BGO ( 76 )  3  9 ( KDD9  BGO (  77  3  3  9 ( TRYMAX  9  BGO ( 

8  78)  3  9 ( MAXTMP  9  BGO (79  3  3  9 ( LMBULK9 BGO ( 80  3  ) 9  <  TBBULK 9 BGO ( 8 1 3  J  9 

9  (  KCHK1  9  BGO  (  1 3  3  9  <  KCHK?  9  BGO  (7f»«(KrHK,3.  HRd  nanwtr.Ac.iscnfon  « 


3  3  9 ( TRY2  9 BGO (57 
5  3  9 (T0TLEN9BG0C60 
3  3  9 ( YI ELDO 9 BGO ( 63 
3  3  9 ( NOI  NPT  9  BGO ( 66 
))9(0MAXD  9 BGO (69 


3  3  9 
3  3  9 
3  3  9 
3  3  9 
3  3  9 
3  3  9 
3  3  9 
J  3  9 
3  3 

3  3  9 

3  3  9 
3  3  9 
3  3  9 
3  3  9 

3  3  9 
3  3  9 

3  3  9 
3  3 

3  3  9 

3  3  9 

3  3  9 
3  3  9 
3  3  9 


0963 

■1! 

663  1 

0964 

663  1 

0965 

663.  | 

0966 

663  | 

0967 

663  1 

0968 

663  i 

*  0969 

663"  j 

0970 

663  j 

0971 

663  : 

0972 

663 

0973 

663  i- 

0974 

663  j 

0975 

663  1 

0976 

66  3  ! 

0977 

663  1 

0978 

663  !| 

3 9  0979 

663  |i 

)»  0980 

663 

3 9  0981 

663  ' 

>9  0982 

663  : 

3 9  0983 

663  1 

3  9  0984 

663 

3  9  0985 

663  : 

J  9  0986 

663  ; 

0987 

663 

0988 

663 

0989 

663 

0990 

663 

0991 

663 

0992 

663 

0993 

663 

0994 

663 

0995 

663 

0996 

663 

0997 

663 

0998 

663 

0999 

663 

1000 

663 

1001 

663 

1002 

663 

1003 

663 

1004 

663 

1005 

663  . 

1006 

663 

1007 

663 

1008 

66  3 

1009 

663 

1010 

663 

1011 

663 

1012 

663 

1013  663 

1014  663 

1015  663 

1016  663 

1017  663 

1018  663 

D  <r%  /*\  /-■/'-> 


1 ( OMEX IT  9  BGO ( 84 ) ) ♦  (DP  IN, BGO (85 ) ) * ( DPEX » BGO (86 ) ) 


4 ( QOQBAR  9 BGO ( 94 ) ) »(NOGEOM,BGO(95) ) 
EQUIVALENCE 


1CAFFD  *  BG 1  ( 2  )) 

2 { BSO  * BG1 (213  )) 

3(CLSGEN,BG 1(337  )) 

4 ( DHI  » BG1 ( 639  )) 

5 ( FTAB I  9  BG1 ( 755  )) 

6 ( GMASS  » BG1 ( 868  )) 

7 (HMULTI »BG1( 987  )) 

8 ( KRSCON9BGI (1103  )) 
9 ( NLEN  *BG1 ( 1307  )) 
EQUIVALENCE 
1 ( NHMULT  » BG1 ( 1607  )) 
2 ( OLEN I  » BG1 ( 1908  )) 
3 ( PO  » BG1 ( 2208  )) 
4( TEXI  ♦BGK2508  )  ) 
5 ( XOL  »BG1 ( 2808  ) ) 


(AFFI  »BG1 ( 102 
(BHIGH  »BG1 ( 224 
(CLSMDI *BG1 (438 
(DPARAM»BGl ( 739 
(FPARMI »BG1(759 
(HTABI  »BG1 ( 968 
( KPAR AM* BG1 ( 1087 
( NDH  »BG1 ( 1107 
( NCLOSS » BG1 ( 1407 


»(NFMULT»BG 1(1707 
»( PH ISUM*BG 1(2008 
,(Pl  »BG1 (2308 
» ( TW  *BG1 ( 2608 
» ( REYNO  * BG1 ( 2908 


) ) » (BSI 
) ) * (CLO< 

)  )  » ( DHD 
) ) » ( DPAF 
)  ) »  ( FMUl 
)  )  ♦  ( HEDC 
) ) , (KPARMR 
) ) » ( NAFL 


) ) » (OLEND 
) ) *(PHIEX 
)  ) * (P2 
) ) » (XOLD 
)  )  * (FRIC 


NLT  *  BGO ( 83  )  ) * 

1020 

66 

1021 

66 

89)  ) 

1022 

66 

2 ) ) * ( QBAR » 

BGO ( 93  )  ) 

*1023 

66 

1024 

66 

1025 

66 

» BG1 ( 202 

)  )  * 

1026 

66 

*BG1 (237 

)  )  » 

1027 

66 

» BG1 ( 539 

)  )  » 

1028 

66 

,BG1 (747 

)  )  * 

1029 

66 

»  BG1 ( 768 

)  )  * 

1030 

66 

I»BG1  ( 974 

)  )  * 

1031 

66 

:»BG1  (  1095 

)  )  » 

1032 

66 

*BG1 ( 1207 

)  )  * 

1033 

66 

»»BG1  (1507 

)  ) 

1034 

66 

1035 

66 

»BG1 ( 1808 

)  )  * 

1036 

66 

»  BG1 ( 2108 

)  )  * 

1037 

66 

♦ BG1 ( 2408 

)  )  * 

1038 

66 

»BG1 ( 2708 

)  )  * 

1039 

66 

*BG1 (3008 

)  )  9 

1040 

66 

6 ( CONVEC 9  BG1 ( 3108 ) ) » ( DPI  NT »BG1 ( 32  08 ) ) » (OMEX I »BG1 ( 3308 ) ) 

7* (PRTGAS»BG 1(3408) ) » (PSEXI *BG1(3417) ) * (PDYEXI »BG1(3517) ) 

*OPEN  AT  3617 9  KEEP  OPEN  UNTIL  3700 

DIMENSION  KONOPT (2*10) .KONPAR ( 4 *13 ) ,SAVTAB ( 13 » 100 ) »KSVTAB( 13*100) 

EQUIVALENCE ( KONOPT  *KUP*  BG2 ) » ( KONPAR  »BG2 (21) ) » 

1 ( SAVTAB » KSVTAB * BG2 ( 73 ) ) 

*OPEN  1373 

EQUIVALENCE (THICKD»BG3( 2) ) * (NRINGD*BG3 ( 103 ) ) » (PEXI  »BG3(203) ) 

* 

EQUIVALENCE (COFFLM* FTAB I >  » ( EXPFLM » FTAB I (2) ) * ( COFFTB  » 

1 FTAB I ( 3 ) ) » ( EXPFTB  »FTABI ( 4 ) )  .  .  ^ . 

# 

*BASIC  OPTIONAL  VARIABLES 

DIMENSION  GRTMPI (3) »GRTMPO(3) 

EQUI VALENCE ( PIN ♦ BSI ) * (TIN* BSI ( 2 ) ) » ( TEX  * BS I( 3 ) ) » ( TWMAX  » 

IBS I (4) ) 9 (PSEX,BSI (5 ) ) » (PEX*BSI (6) ) , (W,BSI (7) ) * ( QTOT  * 

2BSI(8) ) * (PIND,BSO) » (TIND*BSO(2) ) * ( TEXD » BSO ( 3 ) ) * ( TWMAXD » 

3 BSO ( 4 ) ) 9 (PSEXD*BSO(5) ) » (PEXD*BSO(6) ) » ( WD* BSO ( 7 ) ) » ( QTOTD » 

4BS0 ( 8 ) ) 9 (PSXOPI ,BSI (9) ) » ( PTXOPI » BS I ( 10 ) ) » (TEXOTI 9  BSI ( 11 ) ) , 
5(PSPID»BS0(9) ) * (PTPID»BSO( 10) ) , ( TXT  ID* BSO ( 11 ) ) » 

6 (GRTMPI* BSI (2) ) ♦ ( GRTMPO  »BSO ( 2 ) ) 

* 

EQUIVALENCE (COFHLM»HTABI ) » ( EXHPLM  »  HTAB I ( 2 ) ) ♦ ( EXHRLM » 

1HTABI (3) ) » (COFHTB.HTABI (4) ) * ( EXHPTB  *HT  ABI (5) ) 9 (EXHRTB» 

2HTABI ( 6 ) ) 

EQUIVALENCE ( DPT  I N*  DP ARAM ) » ( DTT I N*  DP ARAM ( 2 ) ) 9 ( DTTEX » DPARAM ( 3 ) ) » 

1  (DTWMAX»DPAR‘AM'(  4)  )  ♦  (DPSEX* DPARAM (  5  )  )»(  DPTEX* DPARAM  ( 6  )  )  »  (DW* DPARAM ( 
27)  ) * (DQTOT* DPARAM (8 ) ) » ( NOPTI N *KPAR AM ) , 

3(NOTTIN»KPARAM<2) ) ♦ ( NOTTEX *KPARAM ( 3 ) ) » ( NOTWMX  *NTWMAX  »NOTWA  9 
4KPARAM(4) ) » ( NOPSEX  *  KPAR AM ( 5 ) ) 9 ( NOPTEX » KPARAM ( 6 ) ) * ( NOW *KPARAM ( 7 ) ) » 

5 ( NOQTOT  9  KPAR AM ( 8 ) ) 


* 

* 


*  * 


Htf 


MASTER  GROUPING 

DIMENSION  BGO ( 100) »BG1 ( 3700 ) ,BG2 ( 1372) »BG3(302) » 
1BG ( 5474 ) 

F oh  i  \/ a  1  FwrF  (  Rr;n  •Rm  .  (  rr  1 .  rp;  n  tfi . n  .  (  rg ? . rr (  ^ r m  >  \ 


(  RR-*  «RR(  R  1  7^  »  \ 


1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 
1660 
1061 
1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1  Q7A 


66 

66 

66 

66 

66 

66 

66 

66 

66 

66 

66 

66 

66 

66 

66 

66 

66 

66 

66 

66 

66 

66 

66 

66 

66 

66 

66 

66 

66 

66 

66 

66 

66 

66 

66 


COMMON  BG 

*  *  *  END  OF  MASTER  GROUPING 

EQUIVALENCE ( HEADER  »HEDDUM( 12 )  ) 

♦FOR  LOWER  MEMORY  IN  INITAL 

DIMENSION  KNOPTL ( 2 » 10 ) » KNPARL (4.13) *KSHI FT C 72 ) *KUP( 
DIMENSION  PRTGSL ( 9 ) 

EQUIVALENCE ( KSHIFT  »  KNOPTL ) » (KSHIFT(21 ) .KNPARL) * 

1 (KUP,KONOPT) »<KUP(21)»K0NPAR) 

♦HOLLERITH  GROUPING 

DIMENSION  BWHEN ( 2 ) » BINCH (4)»BF00T(4).BUNLEN(4»2) ♦ 
2BUNTMP ( 2 ) 

DIMENSION  BLOW( 12) 

EQUIVALENCE ( BWHEN .BHIGH ) * ( BUNLEN ♦  BH IGH ( 3 ) ) *  < BUMTMP , 
lBHIGH(ll) ) 

♦END  OF  STORAGE  MAP 

TABLE 'KNOPTL (4* 7*  4»7»  5*7»  5*7»  6.7.  6»7»  5»1»  5.1 
16 » 1 ) .KNPARL ( 8 »4 .2 ♦ 1  *  3.4.2.I.  8.5.2.I.  3.5.2.1*  8*6 
23  »6»2*1»  8»7»5»2»  3.7»5»2»  8»7»2»6»  3»7»2»6»  8.7.2. 
38  ♦ 3 »2  *  1 ) 

4»BL0W(72H  INPUTOUTPUT  INCHES.  SQ.  IN..  PSIA.  FEE 
5A »  DEG  F.DEG  R. ) 

TABLE  PRTGSL ( 54HAIR  N2  C02  H2  02  HE 
ION  ) 

* 

CALL  NEWSET(l) 

♦DO  OVERALL  ZERO  INITIALIZATION 
DO  100  L=l. 5172 
100  BG(L)=0. 

♦NON-ZERO  INITIALIZATION 
♦TRANSFER  TO  COMMON  STORAGE 
DO  110  L=1 .72 
110  KUP(L)=KSHIFT(L) 

B  BLAN<S=6 0606 06 06060 

DO  120  L=1 » 12 
BHIGH (L ) =BLOW( L ) 

120  HEDDUMt  L ) “BLANKS 
DO  130  N=1 . 100 
CLSMDI<N)=1. 

FMULT I( N ) =1 • 

HMULTI ( N ) =1 • 

130  CONTINUE 

DO  140  LB1 *9 
140  PRTGAS(L)*PRTGSL(L) 

* 

ACCMN0«l.E-4 
ACCPRS=l.E-4 
ACCTMP® • 049 
GAS*li> 

KASEsl 
KASTEP*1  • 

LIMCHK=10 
LIMPRS*40 
LIMTRY*15 
LMCHTO=30 
OMAXD*i»5 
TRANHL*2000. 

TRANHU=8000. 


/ex 


1077 

663  ! 

1078 

663  : 

1079 

663 

1080 

663 

72) 

1081 

663 

1082 

663 

1083 

663 

1084 

663 

1085 

66  3 

1086 

663 

1087 

663 

1088 

663 

1089 

663 

1090 

663 

1091 

663 

.  6.1. 

1092 

663 

>2.1. 

1093 

663 

1,  3. 7. 2.1. 

1094 

663 

1095 

663 

Ti  SQ.  FT.. 

PSF1096 

663 

1097 

663 

ARGON  FREON 

NE1098 

663 

1099 

663 

1100 

663 

1101 

663 

1102 

663 

1103 

663 

1104 

663 

1105 

663 

1106 

663 

1107 

663 

1108 

663 

1109 

663 

1110 

663 

1111 

&63 

1112 

663 

1113 

663 

1114 

663 

1115 

663 

1116 

663 

1117 

663 

1118 

663 

1119 

663 

1120 

663  - 

1121 

663 

1122 

663 

1123 

663  ; 

1124 

663  ! 

1125 

663 

1126 

663 

1127 

663 

1128 

663 

1129 

663 

1130 

663 

1131 

663 

1132 

663 

1133 

663  : 

TRANSF=2300. 

* 

RETURN 
END  (  0  9 1 » 0 ) 

************* 
************* 
♦I NPPRT  INPUT  DATA  PRINTOUT  FOR 
♦GFP  663  GENERAL  FLOW  PASSAGE 

*  SC  skirvin 

* 

SUBROUTINE  INPPRT 

* 

♦BEGIN  STORAGE  MAP 
♦GENERAL  USEAGE 


1134  66: 

1135  66 

1136  66: 
1137  66: 

*  **********  H38  66: 

*****♦♦♦**♦  H39  66: 

1140  66: 

1141  66: 

1142  66: 

1143  66: 

1144  66: 

1145  66! 

1146  66: 

1147  66: 


DIMENSION  1148  66: 
1AFFI  (  100  5  » BS I  (11  ) »BSO  (11  )*CLOSSI(100  )»CLSGEN(100  )»  1149  66' 
2CLSMDK100  )»DHI  (100  ),DPARAM(8  ),DPARMI(8  J»FMULTI(100  )»  1150  66: 
3FTABI  (8  ) sFPARMI ( 8  ) »HTABI  (6  )»HMULTI(100  )*KRSC0N(4  )»  1151  66: 
4KPARAM(8  ) »KPARMR ( 8  )9NDH  (100  ) »NAFL  (100  ) »NLEN  (100  )9  1152  66: 
5NCLOSS( 100  ) »NCLSMD ( 100  )*NRINGD(100  ) »NHMULT ( 100  ) »NFMULT ( 100  )»  1153  66' 
60LENI  (100  ) »PH I  SUM ( 100  ),PHIEX  (100  ) ,P0  (100  ) ,P1  (100  )»  1154  66' 
7P2  (100  ) »THICKD( 100  J.TEXI  (100  ) »XOLD  (100  ) ?  BH IGH  (12  ),  1155  66' 


8HEDDUM( 12  ) sGMASS  (100  ) » TW  (100 

) 9REYNO  (100  )9FRIC 

(  100 

)»  1156 

66 ; 

9CONVEC( 100) »DPINT(100i »OMEXI (100) »PRTGAS(9) 

1157 

66: 

DIMENSION  PSEXI ( 100) » PDYEX I ( 100) ,PEXI (100) 

1158 

66: 

♦BGO  ,NON‘”SUBSCR  IP  TED » 

BG1  SINGLE 9  BG2  DOUBLE 9  BG3  CLEANUP 

1159 

66: 

EQUIVALENCE 

1160 

66: 

HAD  » BGO  ( 1 

) ) 9 (ACCMNO9BG0(2 

) ) 9 ( ACCPRS9  BGO ( 3 

)  !  9 

1161 

66: 

2 ( ACCTMP  » BGO ( 4 

) ! 9 (ALLRUN9BGOC5 

) ) 9 (AUTOLS9BGO(6 

)  )  9 

1162 

66: 

3 ( BD  » BGO ( 7 

) ) 9 (BLANKS9BG0I8 

))9<BETA1  9  BGO ( 9 

)  !  9 

1163 

66: 

4(BETA2  »BG0<10 

))*(CIN  9BG0(H 

>>9(CEX  9  BGO ( 12 

5  1  9 

1164 

66: 

5 ( DEAD  » BGO ( 13 

))9(DELH  9  BGO ( 14 

))9(DERIV  9BGO ( 15 

)  S  9 

1165 

66: 

6 ( ENTRN  »BG0(16 

) ) 9 (ENTRNC9BG0( 17 

))»(FD  9  BGO ( 18 

)  )  9 

1166 

66: 

7 ( FT  IN  9 BGO ( 19 

) ) 9 ( FTOUT  9 BGO (20 

) ) 9 (FSTPAR9BG0(21 

)  I  9 

1167 

66: 

8 ( GOAL  » BGO ( 22 

))9(GAS  9BGO ( 23 

) ) 9 ( H I N  9  BGO ( 24 

>  !  9 

1168 

66: 

9 ! I  TRY  »  BGO ( 25 

) ) 9  <KTRCRD9BG0(26 

) ) 9 (KALCNO9BG0(27 

>  ) 

1169 

66: 

EQUIVALENCE 

1170 

66: 

1 ( KTCHAD  »BGO ( 28 

) 5  9 (KTWADJ9BG0(29 

) ) 9 (KTCHTO9BG0(30 

)  )  9 

1171 

66: 

2 ( KPOW  » BGO (31 

))9(K0PT  9BGO ( 32 

) ) 9 (KOSCIL9BGO(33 

)  5  9 

1172 

66: 

3 ( KCHOKE  9  BGO ( 34 

))9(KASE  9  BGO ( 35 

) ) 9 ( KASTEP9BGO ( 36 

)  )  9 

1173 

662 

4 ( LOC  9 BGO (37 

) ) 9 ( LI MCHK  9  BGO { 38 

) ) 9 (LMCHTO9BG0(39 

)  )  9 

1174 

66: 

5(LIMTRV9BG0(40 

) ) 9 (MORCAS9BGO(41 

) 5  9 (NSKPPRsBG0(42 

)  )  9 

1175 

66: 

6 ( NSKPHT  9BGO ( 43 

))9(NT  9BGO ( 44 

))9(NH0T  9  BGO (45 

)  >  9 

1176 

66: 

7 ( NOPRT  9  BGO ( 46 

) ) 9 (NOSTGE9BGO(47 

) ) 9 ( PARPRT  9  BGO (48 

)  5  9 

1177 

66: 

8£PRTSUM9BG0(49 

))9(RNKIN  9 BGO (50 

) ) 9 (RNKOUT9BGO(51 

)  5  9 

1178 

66: 

9  (  SVACMN  9  BGO ( 52 

) 5  9 ( SVACPR  9 BGO ( 5 3 

! ) 9 ( TOTLND9  BGO ( 54 

5  ! 

1179 

66: 

EQUIVALENCE 

1180 

66: 

1(TRY0  9 BGO (55' 

))9(TRY1  9BG0J56 

) ) 9 ( TRY  2  9  BGO ( 57 

}  )  9 

1181 

66: 

2 ( TRY3  9 BGO (58 

)).(TEST1  9  BGO (59 

) ) 9 (TOTLEN9BG0(60 

)  )  9 

1182 

66: 

3 ( WHI  9BGO ( 61 

))9(WL0  9 BGO (62 

) ) 9 ( Y I ELDO  9  BGO ( 6  3 

)  )  9 

1183 

66 : 

4(YIELD19BG0(64 

) ) 9 (YIELD29BG0(65 

) ) 9 (NOINPT9BGO(66 

)  )  9 

1184 

66: 

5( LIMPRS9BG0(67 

) ) 9 ( PRTALL  9  BGO (68 

S ) 9 (OMAXD  9 BGO ( 69 

)  )  9 

1185 

66: 

6 ( OMAX  9  BGO ( 70 ) ) 9 

(0MAX1 9BGOT  71 ) ) 9 (KOPTH 

9  BGO ( 72 ) ) 9 

1186 

66: 

7  ( DMCONV »BG0 ( 75 ) > » ( KDI » BGO ( 76 ) > ♦ ( KDD » BGO ( 77 ) } » ( TRYMAX  »BG0 (1187  66* 

878  J ) » (MAXTMP»BG0(79) ) » ( LMBULK »BG0 (  80 ) ) » ( TBBULK »BG0 ( 8 1 ) ) »  1188  66^ 

9 ( KCHK1 »  BGO ( 1 ) ) ♦ ( KCHK2  *BG0 ( 7 ) ) » ( KCHK3  »BG0 ( 181 ) * ( KG AS » BGO ( 82 ) )  •  1189  66* 

FOUTVAl  FNTF  (  PnY  TW«Rn0f7,3  \  \  .  (  PhYFV  .Rr,n  f  7/,  t  .  i  nwt  ms  t  -  or.n  /  oo  t*  t 


n  i  a  e.  £ 


1 ( OMEX IT » BGO ( 84 )  ) » (DPIN,B60(85 ) ) » ( DPEX » BGO ( 86 ) ) 
2»(TRANSF*BG0(87))»(TRANHL,BG0(88) ) 9 ( TRANHU » BGO 
3*UNEWSETTBG0U  OD>T < KTPA-9BGOU  1DDT8 
4( QOQBAR » BGO ( 94 ) ) 9 (NOGEOM»BGO( 95 ) ) 

EQUIVALENCE 


1(AFFD  9  BG1 ( 2  )) 

2 ( BSO  9  BG1 ( 213  ) ) 

3(CLSGEN9BG1(337  )) 
4(  DHI  9BGK639  )) 

5 ( FTAB I  9  BG1 ( 755  )) 

6  (  GMASS  9BGK868  )) 

7 ( HMULT I  9  BG1 ( 987  )) 

8 ( KRSCON 9BGI (1103  )) 
9 ( NLEN  9BGI ( 1307 
EQUIVALENCE 
1 (NHMULT  9BGI ( 1607 
2  ( OLEN I  9BGK1908 
3 ( PO  9  BG1 ( 2208 
4(TEXI  9  BG1 ( 2508 
5 ( XOL  9BGI ( 2808 
6 ( CQNvEC  9  BG1 ( 3108 ) ) 9 


9(AFFI  9BGK102 
9(BHIGH  9BGI ( 224 
» (CLSMDI 9BGI (438 
9 (DPARAM»BGl(739 
9 ( FPARM 1 9  BG1 ( 759 
9(HTABI  9  BG1 ( 968 
9 ( KPARAM 9 BG1 (1087 
9(NDH  9BGK1107 


) ) 9 (BSI 


) ) 9 ( DHD 


) ) 9 (NCLOSS9BGI ( 1407 

) ) 9  (NFMULT9BGI (1707 
9 (PHISUM9BGI (2008 
9  (  P 1  9  BG1 ( 2308 

9(TW  9  BG1 ( 2608 

9(REYN0  9BGI ( 2908 
( DP INT9BG 1(3208) ) 9 
9 ( PSEXI 9BGI ( 3417 ) ) 
UNTIL  3700 


)  ) 
)  ) 
)  ) 
)  ) 


)  ) 
)  ) 
)  ) 
)  ) 

)  ) 
)  ) 
)  ) 
)  ) 
)  ) 


(NAFL 


(OLEND 
( PHI  EX 
(P2 
( XOLD 
(FRIC 


79 ( PRTGAS  9  BG1 ( 3408 ) ) 

♦OPEN  AT  36179  KEEP  OPEN 
DIMENSION  KONOPT ( 2  9 
EQUIVALENCE(K0N0PT9KUP9BG2>  9 ( KONPAR 9  BG2 ( 2 1 ) ) 9 
1 ( SAVTAB9KSVTAB9  BG2 ( 73 ) ) 

♦OPEN  1373 

EQUIVALENCE (THICKD9BG3( 2) ) 9 ( NRINGD9BG3 ( 103 ) ) 9 (PEXI 9BG3 ( 203 ) ) 

* 

EQUIVALENCE(C0FFLM9FTABI ) 9 ( EXPFLM9FTABI (2 ) ) 9 (COFFTB9 
1FTABI (3) ) 9 (EXPFTB9FTABI (4) ) 

* 

♦BASIC  OPTIONAL  VARIABLES 

DIMENSION  GRTMPI ( 3 ) 9GRTMPO ( 3 ) 

EQUIVALENCE (PIN  9 BSI ) 9 ( T I N 9 BS I ( 2 ) ) 9 ( TEX  9 BS I ( 3 ) ) , ( TWMAX  9 
IBS  I (4) ) * (PSEX»BSI (5 ) ) 9 (PEX9BSI ( 6 ) ) 9 ( W 9 BSI ( 7 ) ) 9 (QTOT  9 
2BSI  (8 ) ) 9 ( PIND9BSO ) 9 ( TIND9BS0( 2 ) ) 9 ( TEXD 9 BSO ( 3 ) ) 9 ( TWMAXD 9 
3BS0(4) ) 9 ( PSEXD 9 BSO ( 5 ) ) 9 (PEXD9BSO(6 ) >  9 (WD9BSO(7) ) 9 (QTOTD 9 
4BS0 ( 8 ) ) 9 (PSXOPI 9 BSI (9) ) 9 (PTXOPI 9 BSI (10) ) 9 (TEXOTI 9  BSI (11))  • 
5(PSPID9BS0(9) ) 9 (PTPIDiBSOJ 10) ) 9 (TXT ID 9 BSO ( 11  )  )  9 
6 (GRTMPI 9 BSI (2) ) 9 (GRTMP09BS0( 2 ) ) 


1191 

663 

89  )  ) 

1192 

663 

0  2 

552 

1194 

663 

1195 

663 

9BGI (202 

)  )  9 

1196 

663 

9  BG1 ( 237 

)  )  9 

1197 

663 

9  BG1 ( 5  39 

)  )  » 

1198 

663 

9BGI (747 

)  )  9 

1199 

663 

9BGI (768 

)  )  9 

1200 

663 

I9BGK974 

)  )  9 

1201 

663 

9BGK1095 

)  )  9 

1202 

663 

»BG1 ( 1207 

)  )  9 

1203 

663 

>9  BG1  ( 1507 

)  ) 

1204 

663 

1205 

663 

9BGKI8O8 

)  )  9 

1206 

663 

9BGI (2108 

)  )  9 

1207 

663 

9  BG1 ( 2408 

)  )  9 

1208 

663 

9BGI (2708 

)  )  9 

1209 

663 

9  BG1 ( 3008 

)  )  9 

1210 

663 

(3308)  ) 

1211 

663 

G 1(3517) ) 

1212 

663 

1213 

663 

00) 9KSVTAB(  13  9100) 

1214 

663 

1215 

1216 


663 

663 


1217  663 

1218  663 


* 


*  *  * 


*  * 


EQUIVALENCE(C0FHLM9HTABI ) 9 (EXHPLM9HTABI (2) ) 9 ( EXHRLM  9 
1HTABI ( 3) ) 9 (COFHTB9HTABI (4) ) 9 ( EXHPTB  9HT  AB I ( 5)  ) 9 ( EXHRTB  9 
2HTABK6)) 

EQUIVALENCE(DPTIN9DPARAM)9 (DTTIN9DPARAM(2 ) ) 9 (DTTEX9DPARAM(3 ) ) 9 
1(DTWMAXsDPARAM(4)  )  9  (DPSEX9DPARAM(5  )  )  9  (DPTEX»DPARAM(6)  ■)  9  ( DW9 DPARAMt 
27)  )  9(DQT0T9DPARAM(8) ) 9 ( NOPTI N 9KPARAM ) 9 

3( NOTTIN9 KPARAM ( 2 ) ) 9 ( NOTTEX 9 KPAR AM ( 3 ) ) 9 (NOTWMX9NTWMAX9NOTWA9 

4KP ARAM ( 4 ) ) 9 ( NOPSEX 9 KPARAM ( 5 ) ) 9 ( NOPTEX 9 KPARAM ( 6 ) ) 9 ( NOW 9KPARAM ( 7 ) ) 9 

5 ( NOQTOT  9  KPARAM ( 8 ) ) 

MASTER  GROUPING 
DIMENSION  BG0(  100)  9BGK3700)  9BG2(  1372  )  9BG3(302)  9 
1BG ( 5474 ) 

EQUIVALENCE (BGO 9 BG) 9 ( BG1 9BG( 101 ) ) * (BG29BG(3801 ) ) 9 ( BG3 9BG ( 5 173 ) ) 
COMMON  BG 

*  pm  n  np  mactpd  nDntiOTKtr: 


1219 

1220 
1221 
1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 
1  547 


663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 


* 

♦LIMITED  USEAGE  " 

DIMENSION  AFFD( 100) ,DHD( 100) »OLEND ( 100) »XOL( 100) 

EQUIVALENCE ( AFFD»AFF ( 2 ) ) > ( CLOSS I , CLOSS ( 2 ) ) » ( CLSMDI »CLSMOD ( 2 ) ) * 

1 (DHD,DH(2 ) ) , ( DH»DOUTER » ELPMAJ  »W IDTH ) » ( AFF»DI NNER » ELPMIN  , 
2HEIGHT) * (FMULTI »FMULT(2) )» (HMULTI ,HMULT (2 ) )♦ ( ROUND » KRSCON ) ♦ 

3 ( RECTNG *  KRSCON ( 2 ) ) »( ELL  IPS, KRSCON! 3  ) ) , ( RI NGS» KRSCON ( 4 ) ) » 
4(0LEND»LENGTH(2 ) ) » (NRINGD»N0RING( 2 ) ) ♦ ( NAFF ,NAFL ) » (THICKD, 
5THICiC(2)  )  »  (PTIN*PIN)  *  (TTIN»TIN)  , (PTEX,PEX)  » (  TEX » TTEX  )  » 

6  (  CASE  »KASE )  »  (  CASTEP » KASTEP  )  »  (DHD*DHG)  » (  DH  »DHG5UB  ) » ( AFF  » 

7AFFSUB) ♦ (OLEND*OL) » ( LENGTH, OLSUB) , < ACCMNO.PER) » ( NOSTGE  »MN ) , 

8( HTABI (4) ,A1 ) , ( FTABI ( 3) ,BI ) , (FTABI ( 4) >OM)  » (FMULTI »AKF ) , (HMULTI, 
9AKH ) » ( Cl N , Cl ) , (CEX,C2 ) , (PHI  SUM, A2) * (PHIEX»Q) , ( NLEN  »NOL ) 
EQUIVALENCE ( NDH , NDHG ) , ( MAXMNO  »OMAXD ) 

♦ALL  MODIFIED  OFF-DESIGN ( ANP  443)  INPUT  VARIABLES 

*  ARE  IN  DIP  LIST,  FUNCTIONALLY  WHEREVER  POSSIBLE 

DIMENSION  PRT CRS ( 2,5 ) ,CRSHD1(8,4) ,CRSHD2(8,4) 

TABLE  PRTCRS ( 60HGENERAL 
INC.  RINGS  ) »CRSHD1(192H 
2 

3  MINOR 

4RING  NO  ) »CRSHD2 

3  WIDTH 

6AXIS  AXIS 

7  THICK  RINGS  ) 

♦END  OF  STORAGE  MAP 

* 

KOPT=KOPT 
KGAS=GAS 
♦CHECK  CONTROLS 

IF(KALCNO) 100,110,100 
100  IF(MORCAS) 105,107,105 
♦EXIT  FROM  SR  IF  PARAMETRIC  AND 
105  IF(FSTPAR >540,540,107 

107  IF(PaRPRT)110,H0,108 

108  KRT=2 
GO  TO  160 

♦COMPLETE  PRINTOUT  -  SETUP 
110  KRT=1 

♦CROSS  SECTION  IDENTIFICATION  PRINT 
KD 1  =  1 

DO  130  L=l»4 

IF ( KRSCON (L) ) 130,130,120 
120  KD1=L+1 
GO  TO  140 
130  CONTINUE 

♦FORMAT  SELECTION  CONTROL  FOR  CROSS  SECTION 
140  KD2=0 

IF (KD1~5 ) 160,150,150 
150  KD2=1 

♦UNIT  HEADING  PRINTOUT  -  LENGTH 
160  KD3=1 

IF(FTIN) 180,180,170 
170  KD3=2 
♦TEMP 

180  KD4= 1 

IF  (RNKIN)220,220,190  7^5' 


ROUND  RECTANGULAR  ELLIPTICAL 

HYDR.  FLOW 

MAJOR 

OUTER  INNER 

(192H  DI AM  AREA 

HEIGHT 

DIAM  DIAM 


NOT  FIRST  CASE 


1248  66 

1249  66 

1250  66 

1251  66 

1252  66 

1253  66 

1254  66 

1255  66 

1256  66 

1257  66 

1258  66 

1259  66 

1260  66 
1261  66 
1262  66 

1263  66 

1264  66 
C01265  66 

1266  66 

1267  66 

1268  66 

1269  66 

1270  66 

1271  66 

1272  66 

1273  66 

1274  66 

1275  66 

1276  66 

1277  66 

1278  66 

1279  66 

1280  66 
1281  66 
1282  66 

1283  66 

1284  66 

1285  66 

1286  66 

1287  66 

1288  66 

1289  66 

1290  66 

1291  66 

1292  66 

1293  66 

1294  66 

1295  66 

1296  66 

1297  66 

1298  66 

1299  66 

1300  66 

1301  66: 
1302  66: 
1303  66 


190  KD4=2 

1305 

663  ' 

♦PRINT  UNIT  HEADING 

1306 

663  i 

220  CALL  PRTUNTC 1,KD3,KD4) 

1307 

663  : 

GO  TO(230*520,245,320*330»400*410»531) »KRT 

.1308 

663 

♦UNPROCESSED  GEOMETRY 

1309 

663 

230  JF(NOGEOM)460, 232*460 

1310 

663 

232  KD5=1 

1311 

663 

IF ( KDl-2 ) 240*240*235 

1312 

663 

235  KD5=KD1-1 

1313 

663  : 

240  PRINT  32005  »  KASE  *TOTLEN  » ( PRT  CRS I  L*KD1) *  L=1 *2 ) 

1314 

663  ! 

32005  FORMAT 

1315 

663 

SPACE 

1316 

663 

CASE  -I  ORIGINAL  GEOMETRICAL  INPUT  DATA 

1317 

663 

SPACE 

1318 

663 

TOTAL  LENGTH  =  -1PE4  CROSS  SECTION  I S-X 

-A  1319 

663 

END  OF  FORMAT 

1320 

663 

* 

1321 

663 

245  PRINT  32  006 » ( CRSHD1 (L»KD5)»L=1»8)»( CRSHD2 (L*KD5) »L  =  1*8) 

1322 

663 

32006  FORMAT 

1323 

663 

SPACE 

1324 

663 

-X 

-A  1325 

663 

STGE  X/L  LENGTH 

“A  1326 

663 

SPACE  ... 

1327 

663 

END  OF  FORMAT 

1328 

663 

* 

1329 

663 

IF (KRT— 2)250*520*260 

1330 

663 

250  NL  =  1 

1331 

663 

NU=NOSTGE 

1332 

663 

EXIT=1. 

1333 

663  ; 

I F ( 40-NOSTGE )255» 26 0*260 

1334 

663 

255  NU=40 

1335 

663 

EXIT=0. 

1336 

663 

260  IF (KD2)270, 265*270 

1337 

663 

♦NOT  CONCENTRIC  RING 

1338 

663 

265  PRINT  32007 »( N » XOL ( N ) »OLEND ( N ) »DHD ( N ) » AFFD ( N ) » 

1339 

663 

1N=NL,NU) 

1340 

663 

32007  FORMAT ( ( I 4 » 0PF8 .4 * 1P3E12 .4 ) ) 

1341 

663 

GO  TO  280 

1342 

663 

^'CONCENTRIC  RINGS 

1343 

663 

270  PRINT  32008 * ( N »XOL (N) »OLEND(N) » DHD ( N ) » AFFD ( N ) »THICKD ( N ) » 

1344 

663 

lNRINGD(N) *N=NL»NU) 

1345 

663 

32008  FORMAT ( ( 14 »0PF8 .4 * 1P4E12 .4 , 1 6 )  ) 

1346 

663 

280  IF(EXIT) 285*285*300 

1347 

663 

285  NL=NU+1 

1348 

663 

KRT  =  3 

1349 

663 

IF (84-NOSTGE >290,295*295 

1350 

663 

290  I F ( 84— NU  >295*295*297 

1351 

663 

295  NU=NOSTGE 

1352 

663 

EX  I T  =  1 • 

1353 

663 

GO  TO  220 

1354 

663 

297  NU=84 

1355 

663 

GO  TO  220 

1356 

663 

* 

1357 

663 

♦PROCESSED  GEOMETRY 

1358 

663 

300  KRT=4 

1359 

663 

NL=1  , 

1360 

663 

NllsMA<;Tf;F  /XU 

1 

A  A  3 

I F { 40—NOSTGE )310»220»220 

1362 

66 

310 

NU=40 

—  '  * 

1363 

66 

EXIT=0. 

1364 

66 

GO  TO  220 

1365 

66 

320 

PRINT  32010, KASE * TOTLND »  < PRTCRS ( L, KD1 ) , 

L=1 ,2  ) 

1366 

66 

32010 

format 

1367 

66 

SPACE 

1368 

66 

CASE  -I  PROCESSED  GEOMETRICAL  INPUT  AND  F-  AND  H-MULTIPLIERS 

1369 

66 

SPACE 

1370 

66 

TOTAL  LENGTH  =  -1PE4  CROSS 

SECTION  IS-X 

-A 

1371 

66 

END  OF  FORMAT 

1372 

66 

* 

1373 

66 

330 

PRINT  32012, (N»XOLD(N) »OLENI (N) »DHI (N) » 

AFFI (N) »HMULT I (N) , 

1374 

66 

1FMULTI (N) *N=NL»NU) 

1375 

66 

32012 

FORMAT 

1376 

66 

SPACE 

1377 

66 

HYDR. 

FLOW  H- 

F- 

1378 

66 

STGE 

X/L  LENGTH  DIAM 

AREA  MULT 

MULT 

1379 

66 

SPACE 

1380 

66 

-I 

-0PF4  -1PE5  -E5 

-E5  -0PF4 

-F4 

1381 

66 

REPEAT  1 

1382 

66 

END  OF  FORMAT 

1383 

66 

* 

1384 

66 

IF(EXIT)340, 340,380 

1385 

66 

340 

NL=NU+1 

i 

1386 

66 

KRT  =  5 

1387 

66 

IF (84-NOSTGE) 350,350,360 

1388 

66 

350 

IF ( 84-NU ) 360 ,360,370 

1389 

66 

360 

NU=NOSTGE 

1390 

66 

EXIT=1. 

1391 

66 

GO  TO  220 

1 

1392 

66 

370 

NU  =  84 

1393 

66 

GO  TO  220 

1394 

66 

* 

1395 

66 

♦REMAINING  STAGEWISE  INPUT 

1396 

66 

380 

KRT=6 

1397 

66 

NL  =  1 

1398 

66 

NU=NOSTGE 

1399 

66 

IF ( 38-NOSTGE ) 390,220,220 

1400 

66 

390 

NU  =  38 

1401 

66 

EX  I T=0» 

1402 

66 

GO  TO  220 

1403 

66 

400 

PRINT  32  015, KASE , AUTOLS  »ENTRNC»BETA1»BEIA2 

1404 

66 

32015 

FORMAT 

1405 

66 

SPACE 

1406 

66 

CASE  -I  POWER  PROFILE  AND  INTERSTAGE 

LOSS  INPUT 

1407 

66 

SPACE 

1408 

66 

AUTOLOSS  CALC  =-F0 

1409 

66 

INTENDED  ENTRANCE  LENGTH  EFFECT  =-F0 

1410 

66 

BETA1  =  -1PE4  BETA2  = 

-E4 

1411 

66 

END  OF  FORMAT 

1412 

66 

* 

1413 

66 

410 

PRINT  32017, ( N»CLOSS I (N ) »CLSMDI (N ) ,PHISUM(N) ,PHIEX(N) , 

1414 

66 

1P0(N) ,Pl (N) ,P2(N) ,N=NL,NU) 

1415 

66 

32017 

format 

1416 

66 

SPACE 

1417 

66 

.INTRSTGE  auto  LOSS  /// 

1418 

66 

STGE  LOSS  COF  MULT 
SPACE 

-I  -0PF4  -FA- 

REPEAT  1 
END  OF  FORMAT 

* 

IF(EXIT)420*420»460 
420  NL=NU+1 
KRT=7 


PHI  SUM 

PH  I  EX 

PO 

— F4 

— F4 

-F4 

STATIC  TOTAL 

PRESS  TEMP 

-0PF2 

-E5  -0PF2 

-F5 

/  //  - 


PI  P2  1419  663 

1420  663 
-F4  -F41421  663 

1422  663 

1423  663 

1424  663 

1425  663 

1426  663 

1427  663 

1428  663 

1429  663 

1430  663 

1431  663 

1432  663 

1433  663 

1434  663 

1435  663 

1436  663 

1437  663 

1438  663 

1439  663 

1440  663 

1441  663 

1442  663 

1443  663 

1444  663 

1445  663 

1446  663 

1447  663 

2 

KKNCO-KGO-OC+W33  Q  52 

1450  663 

1451  663 

1452  663 

1453  663 

1454  663 

1455  663 

1456  663 

1457  663 

1458  663 

1459  663 

1460  663 

1461  663 

-E3  1462  663 

1463  663 

1464  663 

1465  663 

1466  663 

-E4  1467  663 

1468  663 

1469  663 

1470  663 

1471  663 

1472  663 

1473  663 

1474  663 

1475  663 


I F { 80-NOSTGE ) 430 » 43  0  ,440 
430  IF(80-NU)440, 440,450 
440  NU=NOSTGE 
EX IT=1 • 

GO  TO  220 
450  NU=80 

GO  TO  220 

♦CHECK  NEED  FOR  LENGTH  UNIT  CHANGES 
460  IF(FTIN )470,510,470 
470  DO  480  N=l»NOSTGE 
DHI (N)=DHI ( N ) *12 • 

OLENI <N)=OLENI (N)*12. 

AFFI(N)=AFFI (N)*144. 

480  CONTINUE 

TOTLND=TOTLND*12. 

* 

♦FLOW  INPUT  DATA 
510  KRT=2 

GO  TO  220 

520  PRINT  32020, KASE, PRTGAS(KGAS) »GAS,KOPT, (HTABI (L) , 
1L31 ,6) » ( FT  AB+ ( LDTL31 T-D » SMBULKT , BBULKT3 
2T*E0tQSE0T»E0tQX0P-G»»E0PT+9 

3  »  ACCPRS , ACCMNO , ACCTMP  »L I MTRY , LI MCHK , LMCHTO , LI MPRS 

32020  FORMAT 
SPACE 

CASE  -I  FLOW  INPUT  DATA  (GAS  IS-X  -A, NO  -F0) 

*  *  *  WILL  EXECUTE  OPTION  NO  -I  *  *  ♦ 

SPACE 

FRICTION  FACT  AND  HEAT  TRANSFER  CORRELATION  FORMS 
N ( N US ) = A* ( N ( PR ) **B ) * ( N ( R E ) **C ) 

F=D*<N(RE)**E) 

NUMERICAL  VALUES  <L  FOR  LAMINAR,  T  FOR  TURBULENT) 

AL=  -1PE3 ,  BL=  — E3 »  CL=  -E3 

AT=  -E3,  BT=  -E3 »  CT=  -E3 

DL=  -E3 ,  EL=  -E3 »  DT=  -E3,  ET  = 

SPACE 

BULK  TEMP  FOR  HEAT  TRANSFER  CORRELATION (0=NO»  1=YES) 
LAMINAR  =-I  TURBULENT  =-I 
SPACE 

TRANSITION  RANGE  FOR  N(NU)  -1PE4  TO 

TRANSITION  FOR  FRICTION  AT  -E4 

SPACE 


TOTAL 

PRESS 

INLET  -1PE5 

EXIT  -1PE5 

EX/IN  -F5 

PSEX/PTIN  =  -F5 


WEIGHT  FLOW  =  -1PE5  HEAT  RELEASE  = 

-E5 

1476 

66 

QBAR  =  -E5  Q/QBAR  =  -E5 

1477 

66 

MAX  WALL  TEMP  =  -0PF2  AT  STAGE  NO  -I 

1478 

66 

SPACE  2 

1479 

66 

ACCURACIES  (FRACTIONAL  UNLESS  NOTED) 

1480 

66 

PRESS  MACH  NO  WALL  TEMP ( DEG ) 

1481 

66 

-1PE3  -E3  -0PF2 

1482 

66 

SPACE 

1483 

66 

COUNTER  LIMITS  ON  ITERATIONS 

1484 

66 

OPTION  ITERATION  =  -I 

1485 

66 

CHOKES/WT  FLOW  =  -I  CHOKES/CASE  =  -I 

1486 

66 

STAGE  PRESS  AND  WALL  TEMP  =  -I 

1487 

66 

END  OF  FORMAT 

1488 

66 

* 

1489 

66 

I F(FSTPAR)540, 540,530 

1490 

66 

530  KTOTPR=l 

1491 

66 

KRT  =  8 

1492 

66 

GO  TO  220 

1493 

66 

531  DO  534  K=l»4 

1494 

66 

KD=KONPARCK»KOPT) 

1495 

66 

I F ( KPARMR ( KD ) >532*534*534 

1496 

66 

532  KPARMR(KD)=0 

1497 

66 

534  KTOTPR=KTOTPR*( KPARMR ( KD ) +1 ) 

1498 

66 

PRINT  32025,KASE»KTOTPR,DPARAM(3) »DPARAM(7) ,DPARAM<6) » 

1499 

66 

1DPARAM ( 5 ) 9  KPARAM ( 3 ) » KPARAM (7 ) »KPARAM (6 ) »KPARAM ( 5 ) ♦ 

1500 

66 

2DPARAMC8 ) »DPARAM(4) ,DPARAM(2) *DPARAM(1 ) , 

1501 

66 

3KPARAM(8 ) »KPARAM(4) ,KPARAM(2) »KPARAM(1 ) 

1502 

66 

32025  FORMAT 

1503 

66 

SPACE  2 

1504 

66 

CASE  -I  PARAMETRIC  SETUP  (  -I  CASES) 

1505 

66 

SPACE 

1506 

66 

EXIT  WEIGHT  EXIT  TOT 

EXIT  STAT 

1507 

66 

TEMP  FLOW  PRESS 

PRESS 

1508 

66 

SPACE 

1509 

66 

INCREMENT  -1PE4  -E4  -E4 

-E4 

1510 

66 

NO  OF  TIMES  -I  -I  -I 

-I 

1511 

66 

SPACE  2 

1512 

66 

HEAT  MAX  AVE  INLET 

INLET  TOT 

1513 

66 

RELEASE  SURF  TEMP  TEMP 

PRESS 

1514 

66 

SPACE 

1515 

66 

INCREMENT  -E4  -E4  -E4 

-E4 

1516 

66 

NO  OF  TIMES  -I  -I  -I 

-I 

1517 

66 

END  OF  FORMAT 

1518 

66 

* 

1519 

66 

*SR  FINISHED 

1520 

66 

540  CONTINUE 

1521 

66 

RETURN 

1522 

66 

END ( 0*0*0) 

1523 

66 

* 

**  *************** 

***** 

*  1524 

66 

*1 TRCON  SR  WHICH  CONTROLS  EXECUTION  OF  CALCULATION 

1525 

66 

* 

OPTION  FOR 

1526 

66 

*GFP  663  GENERAL  FLOW  PASSAGE 

1527 

66 

* 

s  c  skirvin 

1528 

66 

1529 

66 

SUBROUTINE  ITRCON 

1530 

66 

* 

1531 

66 

CTPiDA^r  MAD  IyV 

1  c  o  -» 

c  c. 

^GENERAL  USEAGE 

1533 

663  ; 

DIMENSION 

1534 

663 

lAFFi  (ioo  )»esr 

(11  ) 9  BSO  (11 

HCLOSSKIOO  )9CLSGEN(100 

)  9 

1535 

663 

2CLSMDI ( 100  ),DHI 

(100  )9DPARAM<8 

)  9 DPARMI  (  8  HFMULTHIOO 

)  9 

1536 

663  ■ 

3FTABI  (8  ) » FPARMI ( 8  ) »HTABI  (6 

■>  9HMULTI  ( 100  )9KRSC0N(4 

)  9 

1537 

663 

4KPARAM ( 8  )»KPARMR(8  HNDH  (100 

)9NAFL  (100  )9NLEN 

(100 

)  9 

1538 

663 

5NCL0SS ( 1 00  ) »NCLSMD ( 100  )»NRINGD(100 

HNHMULTflOO  )9NFMULT(100 

)  9 

1539 

663 

60LENI  (100  ) » PH  I  SUM ( 100  HPHIEX  (100 

) 9PO  (100  ) 9PI 

(100 

)  9 

1540 

663  : 

7P2  (100  )»THICKD(100  HTEXI  (100 

)9X0LD  (100  )9BHIGH 

( 12 

)  9 

1541 

663 

8HEDDUMQ2  )  »GMASS  (100  HTW  (100 

HREYNO  (100  )9FRIC 

( 100 

)  9 

1542 

663 

9C0NVEC( 100) » DP  I  NT (100) ,0MEXI ( 100 ) »PRTGAS(9) 

1543 

663 

DIMENSION  PSEXI (100) »PDYEX I (100) ,PEXI (100) 

1544 

663 

*BG0  NON-SUBSCRIPTED*  BG1  SINGLE >  BG2  DOUBLE »  BG3  CLEANUP 

1545 

663 

EQUIVALENCE 

1546 

663 

HAD  » BGO  ( 1 

) ) » ( ACCMNO  9  BGO ( 2 

) ) 9 (ACCPRS9BG0(3 

)  )  9 

1547 

663 

2 ( ACCTMP »  BG0 ( 4 

> ) 9 (ALLRUN9BG0(5 

) ) 9 ( AUTOLS  9  BGO ( 6 

)  )  9 

1548 

663 

3 ( BD  *  BGO ( 7 

) ) 9 (BLANKS  9  BGO ( 8 

))9<BETA1  9  BGO ( 9 

)  )  9 

1549 

663  ; 

4(BETA2  ,BG0(10 

))9<CIN  9 BGO (11 

3 ) 9 ( CEX  9  BGO ( 12 

)  )  9 

1550 

663  : 

5 ( DEAD  » BGO ( 13 

))9(DELH  9  BGO ( 14 

) ) 9 ( DERI V  9BG0( 15 

)  )  9 

1551 

663  : 

6 ( ENTRN  » BGO ( 16 

) ) 9 (ENTRNC9BG0( 17 

»»9(FD  9  BGO ( 18 

)  )  9 

1552 

663 

7 ( F  T I N  »  BGO ( 19 

) ) » ( FTOUT  9  BGO ( 20 

) ) 9 (FSTPAR9BG0(21 

)  )  9 

1553 

663  ; 

8 ( GOAL  »  BGO ( 22 

))9(GAS  9  BGO ( 23 

} ) » ( HI N  9  BGO ( 24 

)  )  9 

1554 

663 

9 ( I  TRY  »  BGO ( 25 

) ) 9 ( KTRCRD9  BGO ( 26 

) ) 9 ( KALCNO  9  BGO ( 27 

)  ) 

1555 

663 

EQUIVALENCE 

1556 

663 

1 ( K TCHAD 9  BGO ( 28 

) ) 9 ( KTWAD J  9  BGO ( 29 

) ) 9 (KTCHTO9BG0(30 

)  )  9 

1557 

663 

2 ( KPOW  * BGO ( 31 

))9(KOPT  9 BGO ( 32 

5 ) 9 (KOSCIL9BGO(33 

)  )  9 

1558 

663 

3 ( K CHOKE » BGO ( 34 

) ) 9 ( KASE  9BGO ( 35 

) ) 9 ( KASTEP9BGO ( 36 

)  )  9 

1559 

663 

4 ( LOC  »  BGO ( 37 

) ) 9(LIMCHK9BG0(38 

) ) 9 (LMCHTO9BG0(39 

)  )  9 

1560 

663 

5(LIMTRY»BG0(40 

)  )  9  (MORCAS9BGOUI 

) ) 9 (NSKPPR9BG0(42 

)  )  9 

1561 

663 

6(NSKPHT,BG0(43 

))9(NT  9BGO (44 

) ) 9 ( NHQT  9  BGO ( 45 

)  )  9 

1562 

663  : 

7 ( NOPRT  » BGO ( 46 

) ) 9 (N0STGE9BG0(47 

) ) 9 (PARPRT9BG0(48 

)  )  9 

1563 

663 

8 ( PRTSUM*  BGO ( 49 

) ) 9 ( RNKIN  9 BGO ( 50 

)  5  9 ( RNKOUT  9 BGO ( 51 

)  )  9 

1564 

663  : 

9 ( SVACMN  »  BGO ( 52 

) ) 9 (SVACPR9BG0(53 

) ) 9 (TOTLND9BGO(54 

)  ) 

1565 

663 

EQUIVALENCE 

1566 

663 

KTRYO  » BGO  (  55 

))9(TRY1  9  BGO ( 56 

) 3  9 ( TRY2  9 BGO ( 57 

)  )  9 

1567 

663 

2 ( TRY 3  »  BGO (58 

))9<TEST1  9  BGO ( 5  9 

)  )  9 ( TOTLEN  9  BGO ( 60 

)  )  9 

1568 

663 

3 ( WHI  »  BGO ( 61 

))9(WL0  9  BGO ( 62 

5  )  »(YIELD09BG0(63 

)  )  9 

1569 

663 

4( YIELD1»BGG(64 

) ) 9 ( Y I ELD2  9  BGO ( 65 

) ) 9 (NOINPT  9BG0(66 

)  )  9 

1570 

663 

5(LIMPRS»BG0(67 

) ) 9 ( PRTALL  9  BGO (68 

) ) 9 ( OMAXD  9  BGO (69 

)  )  9 

1571 

663 

6 (OMAX  9 BGO ( 70 ) ) 9  ( OMAX 1 9 BGO ( 7 1 ) ) 9 (KOPTH 

9BG0(72))9 

1572 

663 

7  ( DMCONV  9 

BGO (75 ) ) 9 (KDI 9 BGO (76) ) 9 ( KDD 9 BGO ( 77 ) ) 9 ( TRYMAX 9BGO ( 1573 

663 

878  ))  9  ( MAXTMP 9 BGO ( 79 ) ) 9 ( LMBULK  9BGO ( 80) ) 9 ( TBBULK 9 BGO ( 8 1 ) ) 9 

1574 

663 

9 ( KCHK 1 9  BGO ( 1 )  ) 9 ( KCHK2  9  BGO ( 7 3 ) » ( KCHK3  9 

BGO( 18) ) 9 (KGAS9BG0(82 ) ) 

1575 

663 

EQUIVALENCE(PDYIN 

9 BGO (73 ) ) 9 ( PDYEX  9  BGO (74 ) ) 9 ( OMINLT 9 BGO ( 83 ) ) 9 

1576 

663 

1(OMEXIT9BGO(84)  )  9 

( DP  I N  9  BGO ( 85 ) )9(DPEX 

9  BGO ( 86 ) ) 

1577 

663 

29 (TRANSF9BGO(87)  ) 

9 ( TRANHL9 BGO ( 88 )  ) 9 (TRANHU9BG0(89  )  ) 

1578 

663 

39 (NEWSET9BG0(90  i  ) 

9 ( KTPAR9BG0( 91 )  ) 9 ! KTOTPR,BGO(92 ) ) 9 ( QBAR  9 

BGO ( 93  )  ) 

9 1579 

663" 

4 ( QOQBAR  9  BGO ( 94 )  )  9 

( NOGEOM9BGO ( 95 ) ) 

1580 

663 

EQUIVALENCE 

1581 

663 

ltAFFD  9BGI ( 2 

))9(AFFI  9BGH102 

))*(BSI  9  BG1 ( 202 

)  )  9 

1582 

663 

2 ( B  SO  9  BG1 ( 213 

))9(BHIGH  9BGI ( 224 

)  )  9(CL0SSI9BG1(237 

)  )  9 

1583 

663 

3(CLSGEN9BG1(337 

) ) 9 (CLSMDI 9BGI (438 

))9(DHD  9  BG1 ( 539 

)  )  9 

1584 

663 

4  (  DH I  9BGH639 

) ) 9 (DPARAM9BGI ( 739 

) ) 9 (DPARMI 9BGI (747 

)  )  9 

1585 

663 

5(FTABI  9BGI ( 755 

) ) 9 (FPARMI 9BGI (759 

) ) 9 (FMULTI 9BGI (768 

)  )  9 

1586 

663 

6 ( GMASS  9  BG1 ( 868 

))9<HTABI  9BGI ( 968 

) ) 9 ( HEDDUM9BGI (974 

)  )  9 

1587 

663 

„  7(HMULTI9BG1(987 

) ) 9 (KPARAM9BGI ( 1087 

) ) 9 ( KPARMR  9  BG1 ( 1095 

)  )  9 

1588 

663 

/  t/  n  r  *.ahi  /  Mf\l  I  O/TT/llA”?  t  1  .  /.  k!  A  C  I  .  *  '  -  aeon  £.£•"> 


9(NLEN  » BG1  ( 1307 
EQUIVALENCE 
1(NHMULT»BG 1(1607  ) 
2 ( OLENI  »  BG1 ( 1908  ) 
3(P0  »  BG1  ( 2208  ) 

4 (TEX I  »BG1 { 2508  ) 
5 ( XOL  »  BG1 ( 2808  ) 
6 ( CONVEC, BG1 ( 3108  )  ) 
7  » ( PRTGAS»BG1 ( 3408 ) 
♦OPEN  AT  3617 »  KEEP  OPEN 
DIMENSION  KONOPT ( 2 
EQUIVALENCE (KONOPT 
1 (SAVTAB»KSVTAB»BG2 
♦OPEN  1373 

EQUIVALENCE ( TH I CKD 

* 

EQUIVALENCE (COFFLM 
1FTABI (3) ) »(EXPFTB» 

* 


)  ) » (NCL0SS»BG1 ( 1407  ) ) » ( NCLSMD» BGJ ( 1507  )) 


)  * ( NFMULT »BG1 ( 1707  )),(OLEND  ,BG1(1808 
)  , (PHISUM»BG1(2008  ))»(PHIEX  ,661(2108 
)»<Pl  »  BG1 (2308  )),(P2  » BG1 ( 2408 
),(TW  » BG1 (2608  ))»(X0LD  ,BG1(2708 
)  , ( REYNO  »BG1 ( 2908  )),(FRIC  ,BG1<3008 


)  )  , 
)  )  » 
)  )  , 
)  )  » 
)  )  » 


) ) , (FRIC 

, (DPINT»BG1 (3208 ) ) » (OMEX I » BG1 ( 3308 )  ) 

) » (PSEXI »BG1( 3417 ) ) , ( PDYEXI »BG1 (3517  )  ) 

UNTIL  3700 

,10) ,KONPAR (4,13 ) ,SAVTAB { 13 , 100 ) »KSVTAB ( 13 , 100 ) 
»KUP,B62) , ( KONPAR , BG2 ( 2 1 )  )  , 

(73)) 

,BG3(2 ) ) , ( NRINGD, BG3 ( 103 ) ) , ( PEXI ,BG3(203 ) ) 

,  FTABI ) , ( EXPFLM, FTABI (2)  )»(COFFTB» 

FTABI ( 4 ) ) 


♦BASIC  OPTIONAL  VARIABLES 

DIMENSION  GRTMPI (3) ,GRTMPO(3) 

EQUIVALENCE (P IN, BS I ) » ( T I N, BS I ( 2 ) ) , ( TEX , BS I ( 3 ) ) , ( TWMAX , 

IBS  I (4) ) » (PSEX,BSI (5 ) ) , (PEX,BSI (6) ) , ( W, BSI ( 7 ) ) , (QTOT, 

2BSI  (8 ) ) » (PIND»BSO) ♦ (TIND»BSO(2) ) , ( TEXD, BSO ( 3 ) ) , CTWMAXD, 

3BSO ( 4 ) ) , (PSEXD,BSO(5 ) ) , <PEXD,BS0(6> ) , ( WD, BSO ( 7 ) ) , ( QTOTD, 

4BS0 ( 8 ) ) , (PSXOPI »BSI (9) ) , (PTXOPI ,BSI (10) ) , ( TEXOTI ,BSI ( 11 ) ) , 

5 ( PSPID,BS0(9 ) ) , ( PTP I D » BSO ( 10 ) ) , ( TXTID  »BSO (11) ) , 

6 (GRTMPI , BSI ( 2 ) ) , ( GRTMPO , BSO ( 2 ) ) 

# 

EQUIVALENCE(COFHLM»HTABI ) , (EXHPLM,HTABI (2 ) ) , ( EXHRLM, 

1HTABI (3) ) , ( COFHTB,HT  ABI (4) ) » ( EXHPTB  »HTABI ( 5 ) ) , ( EXHRTB  » 

2HTABI ( 6 ) ) 

EQUIVALENCE(DPTIN,DPARAM),(DTTIN,DPARAM(2) ) , ( DTTEX ,DPARAM ( 3 ) ) , 

1 (DTWMAX,DPARAM(4) ) , (DPSEX,DPARAM(5 ) ) , ( DPT EX, DP ARAM ( 6 ) ) »<DW»DPARAM{ 
27)  )  ,(DQTOT»DPARAM(8) ) , ( NOPTI N »KPARAM ) , 

3 ( NOTT I N»  KPARAM ( 2 ) ) , ( NOT TEX , KPARAM ( 3 ) ) , (NOTWMX,NTWMAX»NOTWA» 
4KPARAM(4) ) ,(N0PSEX,KPARAM(5) ),( NOPTEX , KPARAM ( 6 ))♦( NOW, KPARAM ( 7 ) ) , 

5 ( NOQTOT , KPARAM ( 8 ) ) 

* 

*  *  *  MASTER  GROUPING 

DIMENSION  BGO ( 100 ) ,BG1 ( 3700 ) ,BG2 ( 1372 ), BG3 ( 302 ) , 


1590  66 

1591  66 

1592  66 

1593  66 

1594  66 

1595  66 

1596  66 

1597  66 

1598  66 

1599  66 

1600  66 
1601  66 
1602  66 

1603  66 

1604  66 

1605  66 

1606  66 

1607  66 

1608  66 

1609  66 

1610  66 
1611  66 
1612  66 

1613  66 

1614  66 

1615  66 

1616  66 

1617  66 

1618  66 

1619  66 

1620  66 
1621  66 
1622  66 

1623  66 

1624  66 

1625  66 

1626  66: 

1627  66: 

1628  66: 

1629  66: 

1630  66! 


1BGC5474) 

EQUIVALENCE ( BG0»BG) , ( BG1 , BG ( 101 ) ) , (BG2 ,BG( 3801 )),(BG3,BG(5173)) 
COMMON  BG 

*  *  *  END  OF  MASTER  GROUPING 
DIMENSION  TSTGRP ( 4 ) 

EQUIVALENCE (TRYP»TSTGRP) , ( TESTP , TSTGRP ( 2) ) , ( TRYM, TSTGRP ( 3 ) ) , 
1(TESTM,TSTGRP(4) ) 

*END  OF  STORAGE  MAP 


KOPT=KOPT 

SVACMN=ACCMNO 

SVACPR=ACCPRS 

♦INITIALIZATION 

KCH0KE=0 

H I N=TMPENT ( TIND»GAS , 1 ) 

♦ARE  ANY; DPT  IONS  BEING  EXEgCISED 


n< 


1631  66: 

1632  66: 
1.633  66- 

1634  66- 

1635  66: 

1636  66: 

1637  66: 

1638  66: 

1639  66: 

1640  66: 

1641  66: 

1642  66: 

1643  66: 

1644  66: 

1645  66; 

1646  66; 


1090  IF(NSKPHT)1250»1 095 *1250 

1647 

663 

1095  I F ( NSKPPR )1250*1100*1250 

1648 

663 

♦MAKE  PRE-CALCULATION  SETUP 

1649 

663 

1100  IF CKOPTH) 1145»1105»1105 

1650 

663 

♦PRE-ITERATION  INITIALIZATION 

1651 

663 

♦GOAL  IS  DESIRED  VALUE  OF  DEPENDENT  VARIABLE 

1652 

663 

♦TRYO, 1.2*3  ARE  RUNNING  VALUES  OF  INDEPENDENT  VARIABLE 

1653 

663 

1105  KOSCI L=0 

1654 

663 

I TRY=1 

1655 

663 

ktchto=o 

1656 

663 

KTWADJ=0 

1657 

663 

OMAXl=OMAXD 

1658 

663 

TRYMAX=0. 

1659 

663 

TRYMIN=l.E+20 

1660 

663 

WHI=l*E+20 

1661 

663 

WLO=0 • 

1662 

663 

DO  1106  L=l»4 

1663 

663 

BGO ( l+54 ) =0. 

1664 

663 

1106  TSTGRP ( L ) =0. 

1665 

663 

♦KONOPT ( 2 * KOPT )  RETRIEVES  INDEPENDENT  VARIABLE  FROM  BSO 

1666 

663 

KDI-KONOPT12.KOPT) 

1667 

663 

♦KONOPT (l*KOPT)  RETRIEVES  DEPENDENT  VARIABLE  FROM  BSO 

1668 

663 

KDD=KONOPT ( 1  *  KOPT ) 

1669 

663 

CALL  XPRNTI6HKDI »DD,KDI ,KALCN0,2*KCHK1 ) 

1670 

663 

IF ( KDI-1 ) 1111 *1108 .1107 

1671 

663 

1107  WHI=FLWFUN(AFFI ( 1) *PIND*TIND*.9,GAS) 

1672 

663 

GO  TO  1111 

1673 

663 

1108  WLO=PRSFUN< AFFI ( 1) » WD »T IND *. 9 »GAS ) 

1674 

663 

♦SET  CONVERGENCE  CRITERIA 

1675 

663 

1111  I F ( KOPT— 2 )1112*1112»1113 

1676 

663 

1112  dmconv=acctmp 

1677 

663 

GO  TO  1114 

1678 

663 

1113  DMCONV=ACCPRS 

1679 

663 

1114  CONTINUE 

1680 

663 

CALL  FPRNT ( 6HDMCONV ♦ DMCONV  *  I  TRY  » 1 , KCHK1 ) 

1681 

663 

IF ( BSO ( KDI )) 1115,1115*1140 

1682 

663 

1115  IF ( 6  KOPT)1130»1120,1120 

1683 

663 

♦CHECK  IF  STARTING  VALUE  NEEDED 

1684 

663 

1120  IF(WD) 1125»1125»1140 

1685 

663 

1125  WD=FLWFUN(AFFI( 1) »PIND»TIND»*1»GAS) 

1686 

663 

GO  TO  1140 

1687 

663 

1130  P I ND=PRSFUN ( AFF I ( 1 ) »WD»TIND» . 1»GAS ) 

1688 

663 

1140  TRYO=BSO ( KDI ) 

1689 

663 

GOAL=BSO( KDD ) 

1690 

663 

CALL  FPRNT (4HG0AL»G0AL» 1  TRY , 1 »KCHK1 ) 

1691 

663 

1145  CONTINUE 

1692 

663 

IF ( 13-KOPT  >1147  *  1147  » 1148 

1693 

663 

♦FLOW  NOT  USER-SUPPLIED 

1694 

663 

1147  WD=QTOTD/ ( TMPENT ( TEXD »GAS» 1 )-HIN ) 

1695 

663 

GO  TO  1170 

1696 

663 

♦CHECK  IF  TEXD  USER-SUPPLIED 

1697 

663 

1148  KRT=1 

1$98 

663 

1149  DO  1150  M=  1  *  7 

1699 

663 

IF ( KOPT-2*M+l ) 1 150  » 1 160 ♦ 1150 

1700 

663 

1150  CONTINUE 

1701 

663 

GO  TO  1165  j  a  ^ 

1702 

663 

1160  TEXD*  TMPENT  ( QTOTD/WD+HI N  *GAS  »-l  )  //  J 

1703 

663 

1165  GO  TO(1170»1476) » KRT 

1704 

66: 

1170  CONTINUE  ' 

1705 

66: 

T2-BSO(KDI 1 

1706 

66: 

CALL  FPRNT ( 3HBSO»BSO» I TRY » 11 »KCHK1 ) 

1707 

66: 

* 

1708 

66: 

♦ITERATION  SECTION 

1709 

66: 

1250  CONTINUE 

1710 

66: 

♦CALC  BULK  TEMPS  TO  PERMIT  INDEPENDENT  USE  OF 

1711 

66: 

♦  PRES  DROP  OR  WALL  TEMP  ROUTINES 

1712 

66: 

♦  ALSO  CALC  MASS  VELOCITIES 

1713 

66: 

1251  DELH  =  TMPENT ( TEXD  »GAS » 1 1 -HI N 

1714 

66: 

DO  1252  N=1 sNOSTGE 

i715 

66: 

GMASS(N)=WD/AFF1 (N) 

1716 

66: 

1252  TEX I (N)=TMPENT(PHISUM(N)*DELH+HIN»GAS»-1 ) 

1717 

66: 

IF CNSKPPR) 13502 *1254 » 13502 

1718 

66: 

♦MAKE  PRESSURE  DROP  CALC 

1719 

66: 

1254  CALL  DPFRLT(O) 

1720 

66: 

IF (NSKPHT 11600,1255 ,1600 

1721 

66: 

♦DID  STAGE  EXIT  PRESS  FAIL  TO  CONVERGE 

1722 

66: 

1255  IF(SENSE  LIGHT  2)1505,1256 

1723 

66: 

1256  CONTINUE 

1724 

66: 

* 

1725 

66: 

1259  KTCHAD=0 

1726 

66: 

♦DID  CHOKE  OCCUR 

1727 

66: 

IF«KCH0KE 11260,13500, 1260 

1728 

66: 

1260  NT=160 

1729 

66: 

CALL  FPRNT ( 5HWHI LO»WHI »KTCHTO,2» KCHK1 1 

1730 

66: 

IF (KOPTH 11262, 1270, 1270 

1731 

66: 

♦OPTIONS  11-13  HAVE  NO  CHOKE  REMEDIAL 

1732 

66: 

1262  LOC=l 

1733 

66: 

GO  TO  1500 

1734 

66: 

♦HAS  TOTAL  ADJ  COUNTER  BEEN  EXCEEDED 

1735 

66: 

1270  IF (LMCHTO-KTCHTO 11272, 1272, 1280 

1736 

66: 

1272  LOC=3 

1737 

66: 

GO  TO  1500 

1738 

66: 

1280  CALL  UNCHKE 

1739 

66: 

♦HAS  CHOKE  ADJ  COUNTER  LIMIT  BEEN  EXCEEDED  FOR  SINGLE 

1740 

66: 

*  WT  FLOW 

1741 

66: 

I F ( SENSE  LIGHT  2)1505,1290 

1742 

66: 

1290  CONTINUE 

1743 

66: 

CALL  SETYLD(ITRY,YIELD2) 

1744 

66: 

♦TEST  IF  GOAL  REACHABLE  WITH  TRY2  FROM  UNCHKE 

1745 

66: 

IF (KOPT-2) 1300,1300,1320 

1746 

66: 

♦WALL  TEMP 

1747 

66: 

1300  TESTIFY I ELD2-GOAL 

1748 

66: 

I F ( ABSF (TEST  1 1  ACCTMP11600, 1600, 1310 

1749 

662 

1310  I F ( TEST1 1 1344, 1600,1 340 

1750 

66: 

*PRES 

1751 

66: 

1320  TEST1=G0AL-YIELD2 

1752 

662 

IF (ABSF( TESTI/GOAL l-SVACPR 11600, 1600, 1330 

1753 

66: 

1330  IF{TEST1)1340, 1600, 1344 

1754 

66: 

♦SEE  IF  UNCHKE  CAN  MAKE  FURTHER  ADJUSTMENT 

1755 

66: 

1340  IF(KDI-1)1339» 1344, 1339 

1756 

66: 

1339  I F i ( WHI -WLO 1 /WHI-1 •E-611342, 1342, 1341 

1757 

66: 

1341  OMAXl=( ,9+OMAXl 1/2. 

1758 

662 

GO  TO  1280 

1759 

66: 

♦  NEG  OR  ZERO  IS-'FAlL.URE  ll3 

37A0 

662 

1342  L0C=2 

GO  TO  1500 

♦UPDATE  TOTAL  CHOKES  COUNTER 
1344  KTCHTO=KTCHTO+KTCHAD 
T2=BSO ( KDI ) 

I F (I TRY-2) 1346 *1347, 1348 

1346  TRYO=BSO ( KDI ) 

GO  TO  1353 

1347  TRY1=BS0 ( KDI ) 

GO  TO  1353 

1348  TRY2=BSO ( KDI ) 

GO  TO  1353 

*  CHECK  NEED  FOR  WALL  TEMP  CALC 

13500  IF (KOPT-2) 13502 ,135 02* 13501 

13501  IF ( KOPTH ) 13502 » 1350 » 1350 

13502  CALL  TWLT(O) 

♦DID  STAGE  EXIT  WALL  TEMP  FAIL  TO  CONVERGE 
IF(SENSE  LIGHT2)  1505*13504 
13504  IF(NSKPPR)1600»1350,1600 

* 


♦NORMAL  SEQUENCE  AFTER  NO  CHOKE 
♦TEST  IF  ITERATING 
1350  IF(KOPTH) 1600,1352*1352 

1352  CALL  SETYLD ( I  TRY » YI ELD2 ) 

1353  TEST2=GOAL-YIELD2 
♦TEST  CONVERGENCE 

CALL  FPRNT ( 6HYLD0-2  »  YIELDO  »I TRY *3  »KCHK1 ) 
IF (KOPT-2) 1356* 1356, 1354 

♦  PRES 

1354  TEST2-TEST2/GOAL 
1356  TESTl=ABSF ( TEST 2 ) 

♦START  BOUND  TEST  SEQUENCE 

IF (TEST2  >1363,1600,1358 
♦HAS  PLUS  BOUND  BEEN  SET 

1358  IF(TESTP)1361, 1359,1361 
♦SET  PLUS  BOUND 

1359  TESTP=TEST2 
TRYP=T2 

GO  TO  1368 
♦TEST  PLUS  BOUND 

1361  IF (TESTP-TEST2) 1368,1368*1359 
♦HAS  NEGATIVE  BOUND  BEEN  SET 

1363  IF(TESTM)1366, 1364*1366 
♦SET  NEGATIVE  BOUND 

1364  TESTM=TEST2 
TRYM=T2 

GO  TO  1368 

♦TEST  NEGATIVE  BOUND 
1366  IF (TEST2-TESTM) 1368,1368*1364 
♦TEST  IF  MAX-MI N  CAN  BE  SET 
1368  IF (TESTM*TESTP) 1370*1380*1370 
♦SET  MAX-MI N 

1370  TRYMAX=MAX1F(TRYM»TRYP) 
TRYMIN=MIN1F(TRYM,TRYP) 

CALL  FPRNT ( 6HTRYMAX* TRYMAX » I  TRY , 1 » KCHK 1 ) 
CALL  FPRNT ( 6HTRYMIN »  TRYMIN » I  TRY , 1 » KCHK1 ) 


1761 

663  1 

1762 

663 

1763 

663 

1764 

663 

1765 

663 

1766 

663 

1767 

663 

1768 

663 

1769 

663 

1770 

663  : 

1771 

663 

1772 

663 

1773 

663 

1774 

663 

1775 

663. 

1776 

663 

1777 

663 

1778 

663 

1779 

663  , 

1780 

663 

1781 

663 

1782 

663 

1783 

663 

1784 

663 

1785 

663 

1786 

663 

1787 

663 

1788 

663 

1789 

663 

1790 

663 

1791 

663 

1792 

663 

1793 

663 

1794 

663 

1795 

663 

1796 

663 

1797 

663 

1798 

663 

1799 

663 

1800 

663 

1801 

663 

1802 

663 

1803 

663 

1804 

663 

1805 

663 

1806 

663 

1807 

663 

1808 

663 

1809 

663 

1810 

663 

1811 

663 

1812 

663 

1813 

663 

1814 

663 

1815 

663 

1816 

663 

1A17 

66? 

1380  CONTINUE 

CALL  FPRNT(5HTEST2*TEST2»ITRY *1 »KCHK1 ) 
CALL  FPRNT ( 6HTSTGRP , TSTGRP  » I  TRY  »4 » KCHK1 ) 
IF (TEST1-DMC0NV) 1510 » 1510 » 1390 
♦NOT  CONVERGED  -  TEST  COUNTER  LIMIT 
1390  IF (LIMTRY-I TRY) 1392 ,1395 » 1395 
*NEG  FAILED 
1392  NT  =  170 
LOC=l 

GO  TO  1500 

♦CHECK  FOR  OSCILLATION 
1395  IF f TEST1-3.*DMC0NV) 1400* 1400, 1415 
♦STEP  OSCILLATION  COUNTER 
1400  KOSCIL=KOSCIL+l 

I F ! 4  KOSCIL) 1405»1405»1420 
♦TIGHTEN  CALC  TOLERANCES 

1405  IF(4.*ACCPRS-SVACPR ) 1406  *  1406 > 1410 
♦NEG  OR  ZERO  IS  FAILURE 

1406  NT=170 
LOC=2 

GO  TO  1500 

1410  ACCPRS=.5*ACCPRS 
ACCMNO=.5*ACCMNO 
♦NORMAL  CONTINUATION 
1415  KOSCI L=0 
♦STEP  ITERATION  COUNTER 
1420  I TRY= I TRY+1 
♦IS  THIS  FIRST  ITERATION 

IF (I  TRY-3) 1430* 1480 ,1490 


# 

♦FIRST  ITERATION 
1430  Y I ELD0=Y I ELD2 

IF CKOPT-2) 1432* 1432 *1434 

♦TWMAX 

1432  TRY3=TRY0*( YIELD 0 /GOAL)** 1*2 5 
GO  TO  1445 

♦PRES 

1434  I F ( 6  KOPT) 1438* 1436*1436 
♦INLET  PRESS  IS  FIXED 

1436  TRY3=TRY0* ( ( PIND-GOAL ) / ( PIND-BSO ( KDD ) ) ) **1 «25 
GO  TO  1445 

1438  TRY3=TRY0*GOAL/B5O(KDD) 

♦AN  EXIT  PRESS  IS  FIXED 
♦SET  FOR  NEXT  CALL  DPFRLT 
1445  T1=TRY0 

1448  T2=TRY3 

♦HAVE  MAX-MIN  BEEN  ESTABLISHED 

I F ( TRYMAX*TRYMI N ) 1456*1449  * 1456 
♦TEST  TO  INSURE  NO  NEGATIVE  I  TRY  AND  NOT  EXCEED  CHOKE  LIMIT 

1449  IF(T2)1450,1450»1451 

1450  T2=.1*T1 
GO  TO  1466 

1451  I F ( WHI-T2 ) 1452  » 1452  » 1466 

1452  TI=T1+.9*(WHI-T1) 

GO  TO  1466 

♦DELETE  1873-1874  ~  _ 

♦TEST'.FOR  T2:-BETWEEN  MAX  AND  MIN  //«5 


1818  66 

1819  66 

1820  66 
1821  66 
1822  66 

1823  66 

1824  66 

1825  66 

1826  66 

1827  66 

1828  66 

1829  66 

1830  66 

1831  66 

1832  66 

1833  66 

1834  66 

1835  66 

1836  66 

1837  66 

1838  66 

1839  66 

1840  66 

1841  66 

1842  66 

1843  66 

1844  66 

1845  66 

1846  66 

1847  66 

1848  66 

1849  66 

1850  66 

1851  66 

1852  66 

1853  66 

1854  66 

1855  66 

1856  66 

1857  66 

1858  66 

1859  66 

1860  66 
1861  66 
1862  66 

1863  66 

1864  66 

1865  66 

1866  66 

1867  66 

1868  66 

1869  66 

1870  66 

1871  66 

1872  66 

1873  66 

1874  66 


1456  I F ( T 2~ TRYMIN ) 1460*1460,1458 

1875 

663 

1458  IF(TRYMAX-T2) 1460,1460,1466 

1876 

663 

1460  T2=(TRYMAX+TRYWIN)/2. 

1877 

663 

♦FINISH  PROCESSING 

1878 

663 

1466  BSO<KDl )=T2 

1879 

663 

IF ( I TRY-3  >1467, 1468, 1468 

1880 

663 

1467  TRY1=T2 

1881 

663 

GO  TO  1469 

1882 

663 

1468  TRY2=T2 

1883 

663 

1469  KRT=2 

1884 

663 

GO  TO  1149 

1885 

663 

1476  CONTINUE 

1886 

663 

CALL  FPRNT(6HTRY0-3,TRY0,ITRY,4, 

KCHK1) 

1887 

663 

CALL  FPRNT ( 3HBSO,BSO ,ITRY,8, KCHK1 ) 

1888 

663 

♦TEST  FOR  PULL  ON  TIME 

1889 

663 

I F ( SENSE  SWITCH  4)1478,1251 

1890 

663 

1478  NT=999 

1891 

663 

LOC=l 

1892 

663 

GO  TO  1500 

1893 

663 

* 

1894 

663 

* 

1895 

663 

♦SECOND  ITERATION 

1896 

663 

1480  YIELD1=YIELD2 

1897 

663 

CALL  EXTRAP ( 0,O,TRY0,YIELD0,TRYl 

, Y I ELD1 ,TRY3 , 

1898 

663 

1GOAL, 2 ) 

1899 

663 

1485  T1=TRY1 

1900 

663 

GO  TO  1448 

1901 

663 

* 

1902 

663 

♦THIRD  ITERATION 

1903 

663 

1490  CALL  EXTRAP ( TRY 0 » YI ELDO , TRY 1, YIELD 1,TRY2,YIELD2, 

1904 

663 

1TRY3,G0AL,3 ) 

1905 

663 

TRY0=TRY1 

1906 

663 

TRY1=TRY2 

1907 

663 

TRY2=TRY3 

\ 

1908 

663 

Y I ELD0=Y I ELD1 

1909 

663 

YIELD1=YIELD2 

1910 

663 

GO  TO  1485 

1911 

663 

♦END  OF  ITERATION  SECTION 

1912 

663 

* 

1913 

663 

♦ERROR  COMMENT  FOR  ITERATION  FAILURE 

1914 

663 

1500  CALL  NETERR ( NT , LOC ) 

1915 

663 

1505  SENSE  LIGHT  '2 

1916 

663 

1510  IF(KOPT-2)1600, 1600, 1520 

1917 

663 

1520  CALL  TWLT(O) 

1918 

663 

* 

1919 

663 

♦SET  UP  MAJOR  OUTPUT 

1920 

663 

1600  CALL  SETYLDI 0,YIELD2 ) 

1921 

663 

1604  I F ( SENSE  LIGHT  2)1601,1605 

1922 

663 

1601  SENSE  LIGHT  2 

1923 

663 

GO  TO  1700 

1924 

663 

♦SUCCESSFUL  COMPLETION 

1925 

663 

1605  KALCNO=KALCNO+l 

1926 

663 

♦MAKE  ENTRIES  IN  SUMMARY  TABLES 

1927 

663 

KSVTABC1*KALCN0)=KASE 

1928 

663 

KSVTAB ( 13  » KALCNO ) =NHOT 

1929 

663 

DO  1610  L  =  1 *  11 

ML 

1930 

663 

iAin  ?ivtabii  j.i.vai  rMfit=Rcmn 

io« 

e.e.'x 

♦FINISHED 
1700  CONTINUE 
KTCHAD=0 
ACCMNO=SVACMN 
ACCPRS=SVACPR 
RETURN 
END ( 0 » 0  »  0  ) 


*  *  * 

♦OUTPUT 
♦GFP  663 

*  SC 

* 

SUBROUTINE 

* 

♦BEGIN  STORAGE  MAP 
♦GENERAL  UsEAGE 
DIMENSION 
1AFFI  (100 
2CLSMDI (100 
3FTABI  (8 
4KPARAM ( 8 
5NCLOSSS 100 


*■♦•*  *  ♦  *  ♦  *  ♦ 
SR  FOR  SINGLE-CASE  OUTPUT 
GENERAL  FLOW  PASSAGE 
skirvin 


OUTPUT 


* 

FOR 


)  ♦  BSI 
)  »DH  I 


(  11 
( 100 


)  ♦FPARMI (8 
)  »KPARMR( 8 
)  ♦NCLSMDt 100 


) ♦  BSO  (11 
)  »DPARAM(8 
)  *HTABI  (6 
)  »NDH  (100 
)  »NRINGD( 100 


) ♦CLOSSI ( 100 
) ♦  DPARM I (8 
) »HMULT I ( 100 
) »NAFL  <100 
) »NHMULT( 100 


) ♦CLSGENf 100  )♦ 
) ♦FMULTI ( 100  )♦ 
) ♦KRSCON ( 4  )» 
)»NLEN  (100  )♦ 
) »NFMULT ( 100  )♦ 


1932  66 

1933  66 

1934  66 

1935  66 

1936  66 

1937  66 

1938  66 

1939  66 

1940  66 

1941  66 

1942  66 

1943  66 

1944  66 

1945  66 

1946  66 

1947  66 

1948  66 

1949  66 

1950  66 

1951  66 

1952  66 

1953  66 

1954  66 


♦  BQO 


H7 


60LENI  (100  ) »PHISUM( 100  )»PHIEX  (100 

)  ♦ 

PO  (100  ) ♦ P 1 

(100 

)  ♦ 

1955 

662 

7P2  (100  )»THICKD(100  )*TEXI  (100 

)  ♦ 

XOLD  (100  ) ♦BHIGH 

(12 

)  ♦ 

1956 

66: 

8HEDDUM ( 12  ) »GMASS  (100  ) »TW  (100 

)  ♦ 

REYNO  (100  )9FRIC 

(100 

)  ♦ 

1957 

66: 

9CONVEC(100),DPINT(100) ,OMEXI ( 100 ) ♦PRTGASI 9  ) 

1958 

66: 

DIMENSION  PSEXI (100) ,PDYEXI (100) ,PEXI ( 100) 

1959 

66: 

NON-SUBSCRIPTED* 

BG1  SINGLE ♦ 

BG2  DOUBLE ♦ 

BG3  CLEANUP 

1960 

66: 

EQUIVALENCE 

1961 

66: 

1(AD  *  BGO ( 1 

) ) » ( ACCMNO 

»  BGO  ( 2 

)  ) 

♦ (ACCPRS^BG0(3 

)  )  9 

1962 

66: 

2 ( ACCTMP ♦ BGO ( 4 

) ) ♦ (ALLRUN 

»BGO  ( 5 

)  ) 

♦  ( AUTOLS  »BGO ( 6 

) )  ♦ 

1963 

66: 

3 ( BD  ♦ BGO ( 7 

) ) » (BLANKS 

»  BGO  ( 8 

)  ) 

♦  (BET  A1  ♦BGO ( 9 

)  )  9 

1964 

66: 

4(BETA2  »BGO ( 10 

) ) » (CIN 

»BG0( 11 

)  ) 

♦ ( CEX  ♦BGO ( 12 

)  )  ♦ 

1965 

66: 

5 ( DEAD  *  BGO ( 13 

) ) * ( DELH 

*BG0( 14 

)  ) 

♦ ( DER I V  9660(15 

)  )  ♦ 

1966 

66: 

6 ( ENTRN  »BG0 ( 16 

) ) ♦ ( ENTRNC 

*BG0( 17 

)  ) 

♦(FD  ♦BGO ( 18 

)  )  ♦ 

1967 

66: 

7 ( FT  IN  »BG0 ( 19 

) ) » (FTOUT 

»BG0 ( 20 

)  ) 

♦ (FSTPAR9BG0(21 

)  )  ♦ 

1968 

66: 

8 ( GOAL  »BG0( 22 

) ) ♦ ( GAS 

»BG0(23 

)  ) 

♦(HIN  ♦BGO ( 24 

>  )  ♦ 

1969 

66: 

9 ( I  TRY  »BG0 ( 25 

) ) » ( KTRCRD 

9BG0(26 

)  ) 

♦ (KALCNO»BGO(27 

>  » 

1970 

66: 

EQUIVALENCE 

1971 

66: 

1(KTCHAD»BG0(28 

) ) » ( KTWADJ 

»BG0  ( 29 

)  ) 

♦ (KTCHTO»BG0«30 

)  »  * 

1972 

66: 

2 ( KPOW  ♦  BGO ( 31 

) ) ♦ (KOPT 

» BGO (32 

)  ) 

♦ (KOSCIL9BGO(33 

i  )  9 

1973 

66: 

3 ( KCHOKE»BG0 ( 34 

) ) ♦ (KASE 

» BGO  ( 35 

)  ) 

♦ ( KASTEP ♦ BGO ( 36 

)  )  9 

1974 

66: 

4( LOC  ♦  BGO ( 37 

) ) ♦ (LIMCHK 

♦  BGO  ( 38 

)  ) 

♦ (LMCHT09BG0(39 

)  )  ♦ 

1975 

66  2 

5 ( LIMTRY  »BG0 ( 40 

) ) ♦ (MORCAS 

»BG0 (41 

)  ) 

♦ (NSKPPR9BG0(42 

)  )  ♦ 

1976 

662 

6(NSKPHT*BG0(43 

) ) » (NT 

♦BGO (44 

)  ) 

♦(NHOT  ♦ BGO ( 45 

>  )  ♦ 

1977 

662 

7 ( NOPRT  »BG0 ( 46 

) ) » ( NOSTGE 

♦  BGO  (47 

)  ) 

♦ (PARPRT9BG0(48 

S  )  ♦ 

1978 

662 

8 ( PRTSUM*BGO( 49 

) ) » ( RNKIN 

♦BGO ( 50 

)  ) 

9 ( RNKOUT ♦ BGO ( 51 

)  )  ♦ 

1979 

662 

9(SVACMN»BG0( 52 

) ) » ( SVACPR 

♦ BGO ( 53 

)  ) 

9 (T0TLND9BG0(54 

»  ) 

1980 

66: 

EQUIVALENCE 

1981 

662 

1(TRY0  *  BGO ( 55 

) ) ♦ ( TRY1 

♦ BGO ( 56 

)  ) 

9 ( TRY2  9  BGO (57 

)  )♦ 

1982 

662 

2 ( TRY3  ♦  BGO ( 58 

) ) » ( TEST1 

♦BGO (59 

)  > 

9 (TOTLEN9BGO(60 

)  J  ♦ 

1983 

662 

3  (!WHI  »BGO(  61 

))  ♦ ( WLO 

♦  BGO  (62 

)  ) 

♦<YIELD09BG0<63 

)  )  ♦ 

1984 

662 

4(YIELD1*BG0(64 

) ) ♦ ( YIELD2 

♦BGO ( 65 

)  ) 

9 (NOINPT9BGO(66 

)  )  9 

1985 

662 

5 ( LIMPRS*BG0( 67 

) ) » ( PRTALL 

♦BGO ( 68 

)  ) 

♦ ( OMAXD  9BGO ( 69 

)  )  ♦ 

1986 

662 

6 ( OMAX  »  BGO ( 70 ) ) ♦ 

( OMAX1 »BGO ( 71 ) ) » ( KOPTH 

(♦860(72) )  ♦ 

1987 

662 

7:  (DMC0NV»BG0(75)  ) ♦ ( KDI ♦ BGO < 76 )  ) 

* ( KDD»  BGO ( 77 ) ) * ( TRYMAX  * 

BGO ( 1988 

662 

878) ), (MAXTMP»BG0(79) ) » ( LMBULK *BGO  (  80 ) ) » ( TBBULK 
9 ( KCHK1 »  BGO ( 1 ) )* ( KCHK2  » BGO ( 7 ) ) * ( KCHK3 »BGO ( 18 ) )» 
EQUIVALENCE ( PDY IN»BGO ( 73 ) ) *  < PDYEX » BGO ( 74 ) ) ♦  (OM! 
1  (OMEXIT»BGO( 84) ) * ( DP  IN* BGO ( 85 ) ) , ( DPEX » BGO ( 86 ) ) 

* ( TRANHL  »BGO ( 88 ) ) > ( TRANHU ♦ BGO 
, ( KTPAR ♦ BGO ( 91 ) ) * ( KTOTPR ♦ BGO ( < 
(NOG EOM»BG 0(95) ) 


2* (TRANSF»BG0(87) ) 

3* ( NEWSET  »BGO ( 90 ) > 

4 ( QOQBAR » BGO  ( 94) ) » 
EQUIVALENCE 
KAFFZ)  *  BG1  (  2  )) 

2 ( BSO  *  BG1 ( 213  )) 

3 ( CLSGEN»  BG1 (337  )) 

4( DHI  » BG1 ( 639  )) 

5(FTA8I  »  BG1 ( 755  )) 

6 ( GMASS  ♦ BG1 ( 868  )) 

7(H MU LTI»BG 1(987  )) 

8 ( KRSCON*  BG1 (1103  )) 
9(NLEN  >661(1307  )) 
EQUIVALENCE 
1 ( NHMULT » BG1  ( 1607  )) 
2(0LENI  » BG1 ( 1908  )) 
3 ( PO  *BG1  ( 2208  )) 
4 ( TEX  I  » BG1 ( 2508  )) 
5 ( XOL  » BG1 ( 2808  )) 
6 ( CONVEC*  BG1 ( 3108 ) ) » 
7 » ( PRTGAS  »BG 1 ( 3408 ) ) 
♦OPEN  AT  3617 ♦  KEEP  OPEN 


(AFFI  *  BG1 ( 102 
(BHIGH  » BG1 (224 
(CLSMDI *BG1 (438 
(DPARAM>BG1 (739 
(FPARMI *BG1 (759 
(HTABI  »BG1 (968 
( KPARAM»BG1 ( 1087 
(NDH  »BG1 ( 1107 
(NCL0SS»BG1 (1407 


) ) * (BSI 
) ) *(CLO! 
) ) * ( DHD 


) ) * ( HEDDl 
)  )  *  (  KPARI* 
) ) » ( NAFL 


♦ ( NFMULT ♦ BG1 ( 1707 
> (PHISUM»BG1 (2008 
,<Pl  »BG1 ( 2308 

» ( TW  »  BG1 (2608 

» ( REYNO  » BG1 ( 2908 
(DPINT  »BG 1(3208 ) ) * 
»{PSEXI,BG1(3417) ) 
UNTIL  3700 


)  )  » (OLEND 
) ) , (PHI  EX 
)  )  »  (P2 
)  )  * (XOLD 
)  )  »  (FRIC 
(OMEXI >BG1 ( 3308)  ) 

,  (PDYEXI »BG1(3517) ) 


BGO (  81 ) )  , 

1989 

663 

KGAS  »BG0 ( 82 )  ) 

1990 

663 

NLT  »BG0 ( 83  )  )  » 

1991 

663 

1992 

663 

89  )  ) 

1993 

663 

1 2  )  ) » ( QBAR 

»BG0 ( 93 ) ) 

♦  1994 

663 

1995 

663 

1996 

663 

»BG1 (202 

)  )  » 

1997 

663 

» BG1 ( 237 

)  )  ♦ 

1998 

663 

» BG1 ( 539 

)  )  » 

1999 

663 

»  BG1 (747 

)  )  » 

2000 

663 

»BG1 (768 

)  )  » 

2001 

663 

I*BG1  ( 974 

)  )  » 

2002 

663 

:.BG1<  1095 

)  )  » 

2003 

663 

,BG1( 1207 

)  )  » 

2004 

663 

>»BG1  ( 1507 

)  ) 

2005 

663 

2006 

663 

,BG1 ( 1808 

)  )  » 

2007 

663 

»BG1 (2108 

)  )  » 

2008 

663 

» BG1 ( 2408 

)  )  » 

2009 

663 

,BG1 (2708 

)  )  * 

2010 

663 

»3GK  3008 

)  )  > 

2011 

663 

DIMENSION  KONOPT (2*10)* KONPAR (4*13 ) »SAVTAB ( 13 » 100 ) » KSVTAB ( 13  » 100 ) 
EQUIVALENCE ( KONOPT  »KUP ♦ BG2 ) » ( KONPAR  »BG2 (21 ) ) * 

1 ( SAVTAB, KSVTAB* BG2 (73) ) 

♦OPEN  1373 

EQUIVALENCE (THICKD»BG3( 2 ) ) » ( NRI NGD » BG3 ( 103 ) ) » l PEXI »BG3(203 ) ) 

* 

EQUIVALENCE (COFFLM»FTAB I ) » ( EXPFLM* FTAB I (2 ) ) » (COFFTB* 

1FTABI (3)  ) » ( EXPFTB  »FTABI (4) ) 

* 

♦BASIC  OPTIONAL  VARIABLES 

DIMENSION  GRTMPI (3) »GRTMP0(3) 

EQUIVALENCE ( PIN *BSI ) » ( T IN* BS I ( 2 ) ) * ( TEX » BS I ( 3 ) ) » ( TWMAX  * 

IBS! (4) ) » ( PSEX , BSI ( 5 ) ) * (PEX*BSI (6) ) ♦ ( W , BSI ( 7 ) ) ♦ (QTOT » 

2BS I (8) ) ♦ (PIND»BSO) * ( TIND»BS0(2) ) » (TEXD*BS0(3 ) ) » (TWMAXD* 

3BS0 ( 4 ) ) » (PSEXD»BS0( 5 ) ) » ( PEXD*BS0( 6 ) ) , (WD»BS0(7) ) » ( QTOTD* 

4BS0 ( 8 ) ) * ( PSXOPI *  BS 1(9)) ♦ (PTXOPI >BSI ( 10) ) » < TEXOTI *BSI ( 11 ) ) » 
5(PSPlD»BS0(9) ) ♦ (PTPID»BS0( 10) ) » ( TXT  I D»  BSO ( 1 1 ) ) »  ; 

6(GRTMPI»BSI (2) ) »(GRTMP0,BS0(2) ) 

*  ...  ......  ... 

EQUIVALENCE(COFHLM»HTABI ) » (EXHPLM.HTABI (2 ) ) » ( EXHRLM* 

1HTABI ( 3) ) » ( COFHTB  »HT  ABI (4) ) » ( EXHPTB  »HT  ABI (5)  ) , (EXHRTB* 

2HTABI (6) ) 

EQUIVALENCE (DPT  I N» DP ARAM) » ( DTT I N» DP ARAM ( 2 ) ) » ( DTTEX »DPARAM ( 3 ) ) » 

1 (DTWMAX»DPARAM(4) ) » ( DPSEX,DPARAM(5 ) ) » (DPTEX»DPARAM(6) ) * ( DW»DPARAM ( 
21) ) * ( DQTOT  *DPARAM ( 8 ) ) » ( N0PTIN»KPARAM) * 

3 ( NOTT I N* KPARAM ( 2 ) ) » ( NOTTEX  »KPARAM ( 3 ) ) » ( NOTWMX  *NTWMAX  *NOTWA» 
4KPARAM(4) ) ♦ (NOPSEX* KPARAM (5 ) ) ♦ ( NOPTEX » KPARAM (6 ) ) * ( NOW » KPARAM ( 7 ) ) » 
5(NOQTOT,KPARAM(8) ) 


* 

* 


*  MASTER  GROUPING 

nt  wcnc  tam  onn#  i  nnt  .  o  n  *> 


/  o7nn  \  .or.o/  t  ^77  \  .  o r.cmn'Jj 


2012 

2013 

2014 

2015 

2016 

2017 

2018 

2019 

2020 
2021 
2022 

2023 

2024 

2025 

2026 

2027 

2028 

2029 

2030 

2031 

2032 

2033 

2034 

2035 

2036 

2037 

2038 

2039 

2040 

2041 

2042 

2043 

2044 

3>QA  R 


663 
663 
663 
663 
663 
663 
663 
663 
663 
663 
663 
663 
663 
663 
663 
663 
663 
663 
663 
663 
663 
663 
663 
663 
663 
663 
66  3 
663 
663 
663 
663 
663 
663 


1BG ( 5474 ) 

EQUIVALENCE ( BGO  »  BG ) > ( BG1 » BG ( 101 ) ) , (BG2»BG( 3801 ) ) ♦ ( BG3 »BG ( 5173 ) ) 
COMMON  BG 

*  *  *  END  OF  MASTER  GROUPING 

* 

*~ND  OF  STORAGE  MAP 
* 

NOSTGE=NOSTGE 

KGAS=GAS 

REYN! N=GMASS ( 1)*DHI ( 1 )*12. /VI SC ( Tl ND»GAS ) 

REYNEX  =  GMASS ( NOSTGE ) *DH I ( NOSTGE > *12 . /VI  SC ( TEXD »GAS ) 

*IS  THIS  A  PARAMETRIC  STUDY 
IF(MORCAS) 104,104,95 
*IS  THIS  FIRST  CASE  FOR  PARAM  STUDY 
95  IF(FSTPAR) 100,100,104 
*IS  PARTIAL  PRINT  BEING  USED 
100  IF(PARPRT) 104,104»105 

104  KTLINE=0 
*SET  UNITS  LENGTH 

105  KD1=1 

*SET  UP  STATIC  PRESSURES  IF  NEEDED 
IF (PRTALL) 106,109,106 

106  DO  107  N=1»N0STGE 

107  PSEXl (N)=PSTAT(PEXI ( N  ) » TEX  I ( N ) *OMEX I <  N ) .GAS) 

IF (DP I  NT (NOSTGE) ) 108 » 109.108 

108  PSEXl (NOSTGE )=PSTAT(PEX I ( NOSTGE ) -DP I NT ( NOSTGE ) » 

1TEXI (NOSTGE) ,OMEXIT»GAS) 

109  CONTINUE 

IF (FTOUT ) 120,120,110 

110  KD1=2 
*TEMP 

120  KD2=1 

IF (RNKOUT) 140,140,130 
130  KD2=2 
140  KRT=1 

IF(MORCAS) 150,150,142 
142  IF(FSTPAR) 144 , 144 ,150 
144  IF(PARPRT)150, 150,160 
#UNIT  HEADING 

150  CALL  PRTUNT(2,KD1»KD2) 

GO  TO ( 160, 222, 243, 275, 280, 245), KRT 
♦CHECK  NEED  FOR  UNIT  CHANGING 
160  IF(FTOUT 5200,200,170 

♦FEET  FOR  OUTPUT,  ALSO  USED  FOR  RESET  IN  PARAMETRIC 
170  TRAN2=* 00694444 
KRT1=0 

180  IF (PaRPRT ) 185,185,195 
185  DO  190  N=l, NOSTGE 

GMASS(N)=GMASS(N)/TRAN2 
PDYEXI (N)=PDYEXI ( N ) /TRAN2 
DP  I  NT ( N ) =DP I  NT ( N ) /TRAN2 
PEXI (N)=PEXI (N) /TRAN 2 
PSEXl ( N ) =PSEX I ( N ) /TRAN2 
CONVEC ( N ) =CONVEC ( N ) / TRAN 2 
190  CONTINUE 

PDYIN=PDYIN/TRAN2 

PDYFXsPDYFX /TRAN?  /W 


2046  66 

2047  66 

2048  66 

2049  66 

2050  66 

2051  66 

2052  66 

2053  66 

2054  66 

2055  66 
2055A66 

2056  66 

2057  66 

2058  66 

2059  66 

2060  66 
2061  66 
2062  66 

2063  66 

2064  66 

2065  66 

2066  66 

2067  66 

2068  66 

2069  66 

2070  66 

2071  66 

2072  66 

2073  66 

2074  66 

2075  66 

2076  66 

2077  66 

2078  66 

2079  66 

2080  66 
2081  66 
2082  66 

2083  66 

2084  66 

2085  66 

2086  66 

2087  66 

2088  66 

2089  66 

2090  66 

2091  66 

2092  66 

2093  66 

2094  66 

2095  66 

2096  66 

2097  66 

2098  66: 

2099  66 

2100  66 


1 1  n  i  .  c  a 


DPIN=DPIN/TRAN2 
DPEX=DPEX/TRAN2 
195  PEXD=PEXD/TRAN2 
P I ND=P IND/TRAN2 
PSEXD=PSEXD/TRAN2 
IF  (KRTD200, 200*350 

♦TEMP 

200  CONTINUE 

I F ( RNKOUT )210»210»211 
♦DEG  F  IN  OUTPUT 

210  CALL  C0NTMP(GRTMP0»3»GRTMP0»-1) 

CALL  CONTMP ( TEX  I »NOSTGE  »TEXI *-l ) 

CALL  CONTMP ( TW ♦ NOSTGE  »TW  »-l ) 

♦BASIC  OUTPUT 

211  PIMPX=PIND-PEXD 
T I MTX=TI ND-TEXD 

♦IS  CHOKE  COMMENT  NEEDED 

I F ( KCHOKE ) 212  »213*212 

212  KTLlNE=KTLINE+5 
PRINT  32005  *KCHOKE 

32005  FORMAT 
SPACE 

********************* 

♦  CHOKE  OCURRED  IN  STAGE  -I.  IGNORE  * 

*  ALL  RESULTS  THERE  AND  DOWNSTREAM.  * 
************#*'****** 

END  OF  FORMAT 

* 

213  KTLINE=KTLINE+19 

I F ( 50-KTL INE )221»222»222 

221  KRT=2 
KTLINE=21 
GO  TO  150 

222  CONTINUE 

PRINT  32010 » KASE»PRT GAS ( KGAS ) *KGAS»WD»TWMAXD»NHOT ♦ 
1QT0TD*PIND»TIND»PDYIN»0MINLT»REVNIN»PEXD»PSEXD» 
2TEXD.PDYEX »OMEX I T  »REYNEX»PIMPX»TIMTX»PTPID» 
3TXTID»PSPID 
32010  FORMAT 


SPACE 

CASE  -I 

FLOW  AND  TEMPERATURE  RESULTS  (GAS  IS 

-X 

SPACE 

weight  flow  = 

-1PE5 

MAX  AVE  WALL  TEMP  = 

-0PF2 

HEAT 

ADDITION  = 

-1PE4 

SPACE 

TOTAL 

STATIC 

TOTAL  DYNAMIC 

MACH 

PRESS 

PRESS 

TEMP  PRESS 

NO 

SPACF 

INLET  -0PF3 

-FI  -1PE4 

-0PF4 

EXIT  -0PF3 

-F3 

-FI  -1PE4 

-0PF4 

IN-EX  -E4 

RATIO  -F5 

-0PF2 

-F4  PSEX/PTIN 

= 

END  OF  FORMAT 


*IS  ENTRANCE  OR  EXIT  LOSS  PRINTOUT  REQUIRED 
IF (CIN)230»225»230 

TFfrtvmn.nc.iin  ~)frO 


2102 

663 

2103 

663 

2104 

663 

2105 

663 

2106 

663 

2107 

663 

2108 

663 

2109 

663 

2110 

663 

2111 

663 

2112 

663 

2113 

663 

2114 

663 

2115 

663 

2116 

663 

2117 

663 

2118 

663 

2119 

663 

2120 

663 

2121 

663 

2122 

663 

2123 

663 

2124 

663 

2125 

663 

2126 

663 

2127 

663 

2128 

663 

2129 

663 

2130 

663 

2131 

663 

2132 

663 

2133 

663 

2134 

663 

2135 

663 

2136 

663 

2137 

663 

2138 

663 

2139 

663 

2140 

663 

2141 

663 

—A ♦  NO  -I)  2142 

663 

2143 

663 

AT  STAGE  -12144 

663 

2145 

663 

2146 

663 

REYNOLDS2147 

663 

NO  2148 

663 

2149 

663 

-1PE52150 

663 

-1PE52151 

663 

2152 

663 

— F5  2153 

663 

2154 

663 

2155 

663 

2156 

663 

2157 

663 

t  e  o 

Z.  Z 

230  PIMDP=PIND-DPIN 


PRINT  32015,CIN»DPIN»PIMDP»CEX,DPEX,PEXI ( NOSTGE ) " 
32015  FORMAT 


SPACE  2 

ENTRANCE  AND  EXIT 
LOSS  COEFF 
INLET  -1PE4 

EXIT  -1PE4 

END  OF  FORMAT 


LOSSES 
P-TOT  LOSS 
-E4 
-E4 


TOT  PRESS 

-0PF3 ( AFTER ) 
-0PF3 ( BEFORE ) 


* 


GO  TO  240 

235  KTLlNE=KTLINE-7 

*IS  NORMAL  STAGE-BY-STAGE  PRINTOUT  WANTED 

240  IFfPARPRT )239, 239,310 
239  IF  ( 17-NOSTGE) 242,241 »241 

241  NL=1 
NU=NOSTGE 
EXIT=1. 

GO  TO  245 

242  KRT=3 
NL  =  1 

NU=NOSTGE 
EX  IT=1 • 

GO  TO  150 

243  IF (41-NOSTGE) 244 » 245  ,245 

244  NU=41 
EXIT=0. 

♦NORMAL  STAGEWISE  OUTPUT 

245  PRINT  32020, KASE, (N.PEXI (N) ,DPINT(N) ,TEXI <N) »TW(N) , 
10MEXKN  )  ,  REYNO  (  N)  ,N  =  NL,NU) 

32020  FORMAT 
SPACE  2 

CASE  -I  STAGE  BY-STAGE  OUTPUT  RESULTS 


SPACE 

EXIT 

INTRSTGE 

EXIT 

EXIT 

EXIT 

P-TOT 

P  TO  LOSS 

T-TOT 

T-WALL 

MACH  NO 

SPACE 

-0PF3 

-F5 

-FI 

-FI 

— F4 

REPEAT  1 

. 

END  OF  FORMAT 

* 

IF (EX IT >250,246,250 

246  NL=NU+1 
KRT  =  6 

IF (82-NOSTGE) 247,248, 248 

247  IF ( 82— NU  >248,248,249 

248  NU=NOSTGE 
EXITs=l» 

GO  TO  150 

249  NU=82 

GO  TO  150 

♦IS  REMAINING  STAGEWISE  OUTPUT 

250  IF  (  PR  TALD310, 310,260 
♦REMAINING  STAGEWISE  OUTPUT 

260  KRT=4 

GO  TO  150 
275  NL  =  1  -  . 


WANTED 


AVE 

REYN  NO 
-1PE5 


2159  66: 

2160  66! 
2161  66: 
2162  66: 

2163  66: 

2164  66: 

2165  66: 

2166  66: 

2167  66: 

2168  66: 

2169  66: 

2170  66: 

2171  66: 

2172  66: 

2173  66: 

2174  663 

2175  663 

2176  663 

2177  663 

2178  663 

2179  663 

2180  663 

2181  663 

2182  663 

2183  663 

2184  663 

2185  663 

2186  663 

2187  663 

2188  663 

2189  663 

2190  663 

2191  663 

2192  663 

2193  663 

2194  663 

2195  663 

2196  663 

2197  663 

2198  663 

2199  663 

2200  663 

2201  663 

2202  663 

2203  663 

2204  663 

2205  663 

2206  663 

2207  663 

2208  663 

2209  663 

2210  663 

2211  663 

2212  663 

2213  663 

2214  663 
??}*>  661 


NU=NOSTGE 

2216 

663 

I F ( 41-NOSTGE )276»280»280 

2217 

663 

276  NU=4l 

2218 

663 

EXIT=0* 

2219 

663 

280  PRINT  32025  »  KASE » ( N » PDYEXI (N) »PSEXI (N) » CLSGEN  (  N  )  ♦ 

2220 

663 

ICONVEC(N) »FRIC(N) »GMASS(N) »N=NL»NU) 

2221 

663 

32025  FORMAT 

2222 

663 

SPACE  2 

2223 

663 

CASE  -I  MISCELLANEOUS  STAGE-BY-STAGE  OUTPUT 

2224 

663 

SPACE 

2225 

663 

EXIT  EXIT  AUTO  INTR-  H-  F- 

MASS  2226 

663 

STGE  P-DYN  P  STAT  STG  COEFF  COEFF  FACTOR 

VELOCITY  2227 

663 

SPACE 

2228 

663 

-I  -1PE4  -0PF3  -F5  -1PE4  -E4 

-E4  2229066 

REPEAT  1 

2230 

663 

END  OF  FORMAT 

2231 

663 

* 

2232 

663 

IF(EXIT)310»285»310 

2233 

663 

285  NL=NU+1 

2234 

663 

KRT=5 

2235 

663 

IF (82-NOSTGE) 290,300*300 

2236 

663 

290  IF(82-NU)300»300»295 

2237 

663 

295  NU=82 

2238 

663 

GO  TO  150 

2239 

663 

300  NU=NOSTGE 

2240 

663 

EXIT=1. 

2241 

663 

GO  TO  150 

2242 

663 

♦CHECK  IF  PARAMETRIC  REQUIRING  UNIT  RESET 

2243 

663 

310  I F ( MORCAS ) 350 , 350 ,315 

2244 

663 

315  IF(RNK0UT)330, 320,330 

2245 

663 

320  CALL  C0NTMP(GRTMP0»3»GRTMP0,1) 

2246 

663 

330  IF(FTOUT)350,350»340 

2247 

663 

340  TRAN2=144. 

2248 

663 

KRT2=1 

2249 

663 

GO  TO  195 

2250 

663 

♦SR  FINISHED 

2251 

663 

350  CONTINUE 

2252 

663 

RETURN 

2253 

663 

END ( 0*  0 » 0 ) 

2254 

663 

***  **  **  ************** 

*  *  *  2255 

663 

♦PRTUNT 63  SR  TO  PRINT  UNIT  HEADING  FOR 

2256 

663 

SUBROUTINE  PRTUNT « KD 1 »KD2 » KD3 ) 

2257 

663 

DIMENSION  BHIGH ( 12) »BWHEN(2 ) »BUNLEN(4»2 ) »BUNTMP(2 ) 

2258 

663 

EQUIVALENCE! BHIGH,BG1 (224) ) >( BWHEN » BHIGH ) , (BUNLEN, 

2259 

663 

1BHIGH ( 3 ) ) » ( BUNTMP » BHIGH ( 1 1 )  ) 

2260 

663 

*  *  *  MASTER  GROUPING 

2261 

663 

DIMENSION  BG0( 1005 *BG 1(3700 ) ,BG2( 1372) ,BG3(302)» 

2262 

663 

1BG(5474) 

2263 

663 

EQUIVALENCE ( BGO  »  BG ) , ( BG1 , BG ( 101 ) ) » ( BG2 , BG ( 3801 ) ) 

2264 

663 

COMMON  BG 

2265 

663 

*  *  *  END  OF  MASTER  GROUPING 

2266 

663 

K1=KD1 

2267 

663 

K2=KD2 

2268 

663 

K3=KD3 

2269 

663 

WRITE  OUTPUT  TAPE  3 » 32750 , BWHEN ( K1 )>( BUNLEN ( L ♦ K2 ) * 

22  70 

663 

1L=1 »4) » BUNTMP ( K3 ) 

2271 

663 

32750  FORMAT  o(  0 

2272 

663 

RESTORE 

2273 

66 

SPACE 

2274 

66 

♦  *  ♦  GENERAL  FLOW  PASSAGE  (ANP 

663)  ♦  ♦  ♦ 

2275 

66 

-X 

-A  UNITS  ARE-X 

-A 

-A  BTU/SEC »  LBM/SEC • 

2276 

66 

END  OF  FORMAT 

2277 

66 

* 

2278 

66 

RETURN 

2279 

66 

END ( 0  »0  »  0 ) 

2280 

66 

*  * 

*  *  *  *  *  * 

******* 

****** 

*  * 

* 

2281 

66 

♦READIN  DATA  LOADING 

AND  PARAMETRIC  STUDY 

CONTROL  FOR 

2282 

66 

*  GENERAL  FLOW  PASSAGE 

(ANP  663) 

2283 

66 

* 

2284 

66 

SUBROUTINE  READIN 

2285 

66 

* 

2286 

66 

♦BEGIN  STORAGE  MAP 

2287 

66 

♦GENERAL  USEAGE 

2288 

66 

DIMENSION 

2289 

66 

1AFFI  (100  ) » BS I 

(11  ) »BSO  (11 

)  * 

CLOSSKIOO  )  »CLSGEN  ( 100 

) » 

2290 

66 

2CLSMDI ( 100  ),DHI 

(100  ) *DPARAM ( 8 

) » 

DPARMI ( 8  ) »FMULTI ( 100 

)  * 

2291 

66 

3FTABI  (8  ) * FPARMI ( 8  ) »HT  ABI  (6 

> » 

HMULTI ( 100  )»KRSC0N(4 

)  * 

2292 

66 

4KPARAM(8  )*KPARMR(8  )»NDH  (100 

) » 

NAFL  (100  ) »NLEN 

(100 

) » 

2293 

66 

5NCL0SS ( 100  ) »NCLSMD( 100  )*NRINGD(100 

j  ♦ 

NHMULT ( 100  ) .NFMULT ( 100 

)  * 

2294 

66 

60LENI  (100  ) *PHISUM( 100  )  *PHIEX  (100 

) » 

PO  (100  )*P1 

(100 

)  * 

2295 

66 

7P2  (100  ) »THICKD( 100  )»TEXI  (100 

) » 

XOLD  (100  ) »BH IGH 

(12 

) » 

2296 

66 

8HEDDUM ( 12  ) »GMASS  (100  )  »TW  (100 

i  * 

REYNO  (100  )»FRIC 

(100 

)  * 

2297 

66 

9CONVEC(lOO) »DPINT ( 1 0  0 ) »OMEXI ( 100 } * PRTGAS ( 9 ) 

2298 

66 

DIMENSION  PSEXI ( 100) ,PDYEXT(100) ,PEXI ( 100) 

2299 

66 

♦  BGO 

NON-SUBSCRIPTED*  BG1  SINGLE*:  BG2  DOUBLE* 

BG3  CLEANUP 

2300 

66 

♦  BGO 

NON-SUBSCRIPTED*  BG1  SINGLE*  BG2  DOUBLE 

2301 

66 

EQUIVALENCE 

'  .  5 

2302 

66 

HAD  *  BGO  (  1 

) ) , ( ACCMNOV BGO ( 2 

) ) 

,  (ACCPRS*BG0(3 

) ) » 

2303 

66 

2 ( ACCTMP  *BGO ( 4 

) ) » (ALLRUN* BGO (5 

) ) 

* (AUTOLS»BGO(6 

) )  * 

2304 

66 

3CBD  *BG0 ( 7 

) )  ♦  ( BLANKS , BGO ( 8 

) ) 

» ( BETA1  »  BGO ( 9 

) ) » 

2305 

66 

4 ( BET A2  »BGO( 10 

) ) , (CIN  ;  »EG0(11 

) ) 

» ( CEX  *  BGO ( 12 

S  )  * 

2306 

66 

5 ( DEAD  *  BGO ( 13 

) ) * ( DELH  » BGO (14 

) ) 

» (DERIV  » BGO ( 15 

) )  * 

2307 

66 

6 ( ENTRN  *BG0 ( 16 

) ) , (ENTRNC*BG0( 17 

> ) 

* ( FD  »BG0(18 

) )  > 

2308 

66 

7 ( FT  IN  »  BGO ( 19 

) ) * ( FTOUT  *660(20 

) ) 

» ( FSTPAR *BG0 ( 21 

) ) » 

2309 

66 

8 ( GOAL  *  BGO ( 22 

) ) » (GAS  * BGO ( 23 

) ) 

» (HIN  »  BGO ( 24 

) ) » 

2310 

66 

9( ITRY  ♦ BGO ( 25 

) ) » ( KTRCRD»BGO ( 26 

)  > 

» ( KALCNO » BGO ( 27 

) ) 

2311 

66 

EQUIVALENCE 

2312 

66 

1 ( KTCHAD»BGO( 28 

) )* ( KTWADJ  *  BGO ( 29 

) ) 

* (KTCHTO,BGO(30 

) ) » 

2313 

66 

2 ( KPOW  »BG0(31 

) ) , ( KOPT  » BGO (32 

) ) 

» (KOSCIL»BGO(33 

) ) » 

2314 

66 

3 ( K CHOKE*  BGO ( 34 

) ) * ( KASE  » BGO ( 35 

) ) 

» (KASTEP»BG0(36 

) ) » 

2315 

66 

4 ( LOC  »BGO<  37 

) ) * (LIMCHK»BG0(38 

)  > 

» (LMCHTO,BG0(39 

) )  * 

2316 

66 

5(LIMTRY»BG0(40 

) ) » (MORCAS»BGO(41 

)  > 

, (NSKPPR»BG0(42 

) ) » 

2317 

66 

6 ( NSKPHT  *  BGO ( 43 

))*(NT  , BGO (44 

) ) 

* ( NHOT  *  BGO ( 45 

) ) » 

2318 

66 

7 ( NOPRT  » BGO (46 

) ) * (N0STGE»BG0(47 

) ) 

, (PARPRT,BG0(48 

) ) » 

2319 

66 

8(PRTSUM*BG0(49 

) ) . ( RNKIN  » BGO ( 50 

)  > 

» (RNK.0UT*BG0(51 

) )  * 

2320 

66 

9 ( SVACMN » BGO ( 52 

) ) » (SVACPR,BG0(53 

) ) 

» ( T  OTLND » BGO ( 54 

) ) 

2321 

66 

EQUIVALENCE 

2322 

66 

1 ( TRYO  »  BGO ( 55 

) ) . ( TRY 1  »BGO ( 56 

) ) 

* ( TRY2  *BG0<57 

) )  * 

2323 

66 

2<TRY3  *BGO( 58 

) ) » ( TEST1  »BG0(59 

) ) 

» (TOTLEN*BG0(6O 

)  )  9 

2324 

66 

3 ( WHI  »BGO( 61 

) ) » ( WLO  »  BGO ( 62 

)  > 

» (YIELD0»BG0(63 

) ) » 

2325 

66 

4(YIELD1»BG0(64 

) ) * ( YIELD2»BG0(65 

)  > 

» (NOINPT»BGO(66 

) )  * 

2326 

66 

5 ( LIMPRS»BG0( 67 

) ) ♦ ( PRT ALL*  BGO ( 68 

) ) 

» (OMAXD  »  BGO ( 69 

) )  * 

2327 

66 

d f. 


(DMCONV.BGO(75  )  )  T  (  K.D+*  BGO  ( 76  )  )  TUK.DD*  BGO  (  77  ) -3- 


878) ) , (MAXTMP*BG0(79) ) » ( LMBULK »BGO ( 80 ) ) , ( TBBULK*BG0 ( 8 1 ) ) » 

9 ( KCHKl »  BGO ( 1 )  )  »  ( KCHK2  » BGO ( 7 ) ) * ( KCHK3»BG0( 18 ) ) * (KGAS»BGO( 82 ) ) 
EQUIVALENCE ( PDYIN*BG0(73 ) ) » ( PDYEX » BGO ( 74 ) ) ♦ ( OMINLT »BGO ( 83 ) ) » 

1 ( OMEX IT  *  BGO { 84 ) ) * ( DP  I N » BGO ( 85 ) ) » ( DPEX , BGO ( 86 ) ) 

2  » (TRANSF»BGO( 87 ) ) » ( TRANHL » BGO ( 88 )  ) » ( TRANHU* BGO ( 89 )  ) 

3 » ( NEWSET  »BGO ( 90 ) ) , ( KTPAR »BGO ( 91 ) ) » ( KTOTPR » BGO { 92 ) ) » ( QBAR  »BGO ( 93 ) ) , 
4 ( QOQBAR  »BGO ( 94 ) ) » ( NOGEOM » BGO ( 95 ) ) 

EQUIVALENCE 


1(AFFD  *  BG1 ( 2 
2  (  BSO  ♦BGK213 
3 ( CLSGEN*BG1 (337 
4( DHI  *  BG1 (639 
5 ( FTAB I  *  BG1 ( 755 
6 ( GMASS  ♦  BG1 ( 868 
7 ( HMULT I » BG1 ( 987 
8 ( KRSCON*  BG1 (1103 
9 ( NLEN  *BG1 ( 1307 
EQUIVALENCE 
1 ( NHMULT  »BG1  ( 1607 
2(0LENI  »BG1 ( 1903 
3 ( PO  *  BG1 ( 2208 
4 ( TEX  I  » BG1 ( 2508 
5 ( XOL  » BG1 ( 2808 


) ) » ( AFF I  *BG1 ( 102 
) ) ♦ ( BHIGH  » BG1 (224 
) ) , ( CLSMDI ,BG1 (438 
)), (DPARAM, BG1 (739 
) ) , (FPARMI»BG1(759 
) ) » ( HTAB I  »  BG1 (968 
) ) , (KPARAM, BG1( 1087 
)  )  »  ( NDH  »BG1 ( 1107 


) ) * ( BS I  »  BG1 ( 202 

)  )  , ( CLOSS I  *  BG1 ( 237 
)  )  » ( DHD  »BG1 ( 539 

)  )  ,  ( DPARMI » BG1 ( 747 
)  )  * (FMULTI »BG1 (768 
)  )  * ( HEDDUM»  BG1 (974 
) ) * ( KPARMR, BG1 ( 1095 
)  )  » ( NAFL  * BG1 ( 1207 


) ) , (NCL0SS*BG1 ( 1407  )  ) » ( NCLSMD, BG1 ( 1507 


1 ( NHMULT ,BG1  ( 1607  ) ) » ( NFMULT »BG1 ( 1707  ))»(OLEND  »BG1(1808  ))* 

2 ( OLENI  »BG1 ( 1908  ) ) , (PHISUM*BG1 ( 2008  ))»(PHIEX  ,BG1(2108  )}» 

3 (  PO  » BG1 ( 2208  ))»(Pl  »BG1(2308  ))»(P2  »BG1(2408  ))» 

4 ( TEX  I  » BG1 ( 2508  )),(TW  *BG1(2608  ))*(XOLD  »BG1(2708  ))» 

5 ( XOL  » BG1 ( 2808  )),(REYNO  »BG1(2908  ))»(FRIC  ,BG1(3008  ))» 

6 ( CONvEC, BG1 ( 3108 ) ) » ( DPINT,BG1 (3208 ) ) » (OMEX I ,BG1( 3308 ) ) 

7  » (PRTGAS»BG 1(3408) ) , (PSEXI »BG1(3417) ) , (PDYEX I ,BG1(3517) ) 

♦OPEN  AT  3617*  KEEP  OPEN  UNTIL  3700 

DIMENSION  KONOPT (2* 10) »KONPAR (4*13 ) »SAVTAB ( 13 > 100 ) »KSVTAB( 13*100) 

EQUIVALENCE ( KONOPT » KUP »BG2 ) » ( KONPAR »BG2 ( 21 ) ) »  < 

1 ( SAVTAB • KSVT  AB  »  BG2 ( 7  3 ) ) 

♦OPEN  1373 

EQUIVALENCE (THICKD»BG3(2) ) » ( NRINGD  »BG3 ( 103) ) » (PEXI »BG3(203) ) 

* 

EQUIVALENCE ( COFFLM*  FTABI ) » ( EXPFLM»FTABI (2) ) » ( COFFTB  » 

1FTABI (3) ) » (EXPFTB»FTABI (4) ) 

* 

♦BASIC  OPTIONAL  VARIABLES 

DIMENSION  GRTMPI (3) »GRTMPO(3) 

EQUIVALENCE (PIN* BSD  *(TIN»BSI (2) ) »(TEX»BSI (3) ) * ( TWMAX  » 

IBS  I ( 4 ) ) » ( PSEX»BS 1(5) ) ♦ ( PEX,BS1 (6 ) ) * (W*BSI (7) )»(QTOT» 

2BSI (8 ) ) » ( PI ND*  BSO) » ( TIND»BSO( 2) ) * (TEXD»BSO(3 ) ) * ( TWMAXD* 

3BSO ( 4 ) ) » (PSEXD»BSO(5 ) ) » (PEXD»BSO(6 ) ) * (WD*BS0(7) ) » (QTOTD  * 

4BS0 ( 8 ) ) » (PSXOPI »  BS I ( 9 ) ) » (PTXOPI »BSI ( 10) ) » (TEXOTI » BS I C 1 1 ) ) * 

5( PSPID»BS0(9) ) » ( PTP I D»  BSO ( 10 ) ) , ( TXTID*BSO( 11 ) ) » 

6 (GRTMPI *BSI (2 ) ) » ( GRTMPO  »BSO ( 2 ) ) 

* 

EQUIVALENCE (COFHLM* HTAB I ) » ( EXHPLM*HTABI (2 ) ) » ( EXHRLM ♦ 

1HTABI ( 3) ) > ( COFHTB»HTABI (4) ) » ( EXHPTB»HT  ABI ( 5 ) ) » ( EXHRTB * 

2HTABI (6) ) 

EQUIVALENCE (DPT  IN, DP ARAM) , ( DTT I N» DP ARAM ( 2 ) ) » ( DTT EX » DP ARAM ( 3 ) ) » 

1 (DTWMAX,DPARAM(4) ) , ( DPSEX,DPARAM( 5 ) ) , ( DPTEX » DPARAM ( 6 ) ) » ( DW  »  DPARAM( 
27) ) * (DQTOT* DPARAM (8 ) ) » ( NOPTIN  »KPARAM ) » 

3 ( NOTT IN, KPARAM ( 2 ) ) » ( NOTTEX  »  KPARAM ( 3 ) ) » (NOTWMX,NTWMAX,NOTWA» 
4KPARAM(4) ) ♦ (NOPSEX,KPARAM(5) ) ,( NOPTEX , KPARAM ( 6 ) ) * ( NOW»KPARAM ( 7 ) ) , 

5 ( NOQTOT , KPARAM ( 8 ) ) 

♦LIMITED  USEAGE 

DIMENSION  AFFD( 100) , DHD (100) ,OLEND( 100) , XOL ( 100) 

*9  EQUI  VALENCE  (  AFFD»AFF(2  )  )  » (  CLOSS  I ,  CLOSS  (  2  ) )  »' (CLSMDI ,  CLSMOD  ( 2  )  )  » 


2330 

2331 

2332 

2333 

2334 

2335 

2336 

2337 

2338 

2339 

2340 

2341 

2342 

2343 

2344 

2345 

2346 

2347 

2348 

2349 

2350 

2351 

2352 

2353 

2354 

2355 

2356 

2357 

2358 

2359 

2360 

2361 

2362 

2363 

2364 

2365 

2366 

2367 

2368 

2369 

2370 

2371 

2372 

2373 

2374 

2375 

2376 

2377 

2378 

2379 

2380 

2381 

2382 

2383 

2384 

2385 

2386 


1(DHD,DH(2) ) * ( DH  »  DOUTER9  ELPMAJ  »W I DTH ) * ( AFF  »DI NNER ♦ ELPM I N  »  2387 

2HEIGHT) ♦ (FMULTI »FMULT(2) ) » ( HMULT I 9 HMULT ( 2 ) ) » ( ROUND 9KRSCON ) »  2388 

3(RECTNG»KRSCON( 2J) » ( ELL I  PS *KRSCON ( 3 ) ) 9 ( RI NGS  »KRSCON ( 4 ) ) »  2389 

4 (OLEND» LENGTH ( 2 ) ) » ( NR  I NGD 9  NORING ( 2 ) ) * ( NAFF ,NAFL ) » ( THI CKD»  2390 

5THICK(2 ) ) » (PTIN»PIN5 ♦ ( TT I N > T I N ) » ( PTEX »PEX ) * ( TEX » TTEX ) »  2391 

6 ( CASE » KASE ) * ( CASTEP  » KASTEP ) » < DHD» DHG ) » ( DH ,DHGSUB ) * ( AFF  >  2392 

7AFFSUB) » (OLEND»OL) ♦ (LENGTH .OLSUB) » ( ACCMNO* PER ) » ( NOSTGE »MN ) »  2393 

8(HTABI (4) » A1 ) » ( FTABI (3) .Bl) 9 (FTABI (4) »OM) 9 (FMULTI 9  AKF ) 9 (HMULT I  9  2394 

9AKH ) , (Cl N 9 Cl) 9 (CEX9C2 ) 9 ( PH ISUM9  A2 ) 9 ( PHI  EX 9Q ) 9 ( NLEN 9NOL )  2395 

EQUIVALENCE (NDH9NDHG) 9 ( MAXMNO  9OMAXD )  2396 

♦ALL  MODIFIED  OFF-DESIGN ( ANP  443)  INPUT  VARIABLES  2397 

*  ARE  IN  DIP  LIST9  FUNCTIONALLY  WHEREVER  POSSIBLE  2398 

EQUIVALENCE(HEADER9HEDDUM( 12 ) )  2399 

*FOR  READIN  ONLY  2400 

*SPELLINGS9  OFFSETS 9  ETC.  2401 

DIMENSION  2402 

1AFF  (101  )9CLSMOD(101  ) 9CLOSS  (101  ) 9 DH  (101  )9LENGTH(101  >  9  2403 

2N0RIMG( 101) *THICK( 101) > FMULTI 101) 9 HMULT ( 101 )  2404 

EQUIVALENCE(N0STGE9STAGES)  2405 

*  2406 

*  *  *  MASTER  GROUPING  2407 

DIMENSION  BG0(100)9BG1(3700),BG2(1372)9BG3(302) 9  2408 

1BG ( 5474 )  2409 

EQUIVALENCE(BG0  9BG) 9  <BGl9BG( 101 > ) 9 ( BG2 9 BG ( 3801 ) ) 9 ( BG3 9BG( 5173 > )  2410 

COMMON  BG  2411 

*  *  *  END  OF  MASTER  GROUPING  2412 

*  2413 

♦END  OF  STORAGE  MAP  2414 

*  2415 

KOPT=KOPT  2416 

DUMDIP=0.  2417 

♦IS  PROGRAM  IN  PARAMETRIC  LOOP  2418 

I F { MORCAS  5809809240  2419 

80  I F ( SENSE  SWITCH  2)95985  2420 

^AVOIDS  COMMENT  CARD  TROUBLE  BY  INSPECTING  FIRST  RECORD  2421 

*  OF  TAPE  2  2422 

85  CALL  TPINSP  2423 

*  2424 

♦LOAD  DATA  2425 

95  IF(DUMDIP)999l00999  2426 


99  READ  DIP  DHGSUB  9  AFFSUB9OL  9OLSUB  9PER9MN9AI 9BI 90M,OK » AKF  9AKH  9 AAF  9 AAF2427 
12»ClN9CEX9Cl9C29TWT9 A29Q9FT9FTEMP9PSI INP9 INOL9 INDHG9INAFFL9INAAFL92428 
2 1 N AAF2  9  PS  I OUT  9  TQT  9NOL  9NDHG  9  DWADD  9  TBADD  9  PS  I N  9 X NORM  9  PUNCH , PRINT  9NW9W2429 
3SUB  9KPOWER  9INPUT9NOINPT9LI MPRS9  PRTALL  9MAXMNO  9MAXTMP  9LMBULK  9TBBULK.  9  2430 
4KCHK1 9  KCHK2  9  KCHK3  9TRANSF  9  TRANHL 9  TRANHU 9  NEWSET  9  QBAR 9QOQBAR  9  NOGEOM  2431 
5  »ST  AGES  2432 

100  READ  DIP  ACCMN09ACCPRS9ACCTMP9ALLRUN9AUTOLS9AFF,BETAl9BETA29CLOSS92433 
1CLSMOD9DOUTE-TD+NNE-9DHTENT-*CTEL-MAJTEL 

2LT9HMULT9HEIGHT9KASE9KASTEP9LIMCHK9LMCHT09LIMTRY9NDH,NAFF9NAFL9NLE2435 
3N9NCLOSS9NOPRT9NOSTGE9NCLSMD9NORING9NHMULT,NFMULT9LENGTH9PARPRT9PR2436 
4TSUM,PHISUM9PHIEX9P0  9P09P19PI 9P2  9PTXOP 1 9PSXOP I 9RNK IN9 RNKOUT  9  ROUND 9  2437 
5RECTNG9RINGS9THICK9TOTLEN9TEXOTI 9WIDTH9XOL9PEX9PTEX9PIN9PTIN9TIN9T2438 
6T+N  9PSEXTTEXTTTEXTWTTWMAOT-9OTT  *  0K132 

7NOQTOT  9 NOPSEXTNOPTEX  9NOWTNOTTEXTDPT+N9DTT+N 

8 EX  9  DW  9DTTEX  9COFHLM9  COFHTB  9EXHPLM9  EXHPTB  9EXHRLM  9  EXHRTB  9  COFFLM  9C0FFT2441 
9B  9  EXPFLM  9EXPFTB  9CASE  9  CASTEP  9  PTXOPI 9  PSXOP 1 9  TEXOT I  9  GAS 9  HEADER  9 DHG  2442 


663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

552 

663 

663 


3  05-  :  ;;  .  2443  663 


KTRCRD=KTRCRD+1 

2444 

663 

♦WAS  DIP  ERROR  ENCOUNTERED 

2445 

663 

I F ( SENSE  LIGHT  1)120*130 

2446 

663 

120  PRINT  32032»KTRCRD 

2447 

663 

32032  FORMAT 

2448 

663 

SPACE 

2449 

663 

ABOVE  DIP  ERRORS  OCURRED  IN  INPUT 

RECORD  NO 

-I  . 

2450 

663 

SPACE 

2451 

663 

END  OF  FORMAT 

2452 

663 

DEAD=1. 

2453 

663 

GO  TO  80 

2454 

663 

♦IS  JOB  BEING  PULLED  (YES  IF  SS4  DOWN) 

2455 

663 

130  IF(SENSE  SWITCH  4)100*135 

2456 

663 

♦NORMAL  CONTINUATION  WAS  AN  ERROR 

PREVIOUSLY 

ENCOUNTERED 

2457 

663 

135  IF(DEAD) 150,150*140 

2458 

663 

♦IS  PROGRAM  TO  CALCULATE  ANYWAY 

2459 

663 

140  IF(ALLRUN)80*80,145 

2460 

663 

♦HAS  A  NEWSET  CASE  FAILED 

2461 

663 

145  I F ( SENSE  LIGHT  4)146*147 

2462 

663 

146  SENSE  LIGHT  4 

2463 

663 

GO  TO  100 

2464 

663 

147  DEAD=0 • 

2465 

663 

♦CHECK  STAGE  LIMIT  NOT  EXCEEDED 

1 

2466 

663 

150  IF(IOO-NOSTGE) 151,152*152 

2467 

663 

151  DEAD=1. 

2468 

663 

CALL  NETERR (152*152) 

2469 

663 

GO  TO  80 

2470 

663 

♦NORMAL  SEQUENCE  -  CHECK  IF  POSSIBLE 

PARAMETRIC 

2471 

663 

152  DO  160  N=1 ♦ 8 

2472 

663 

I F ( KPARAM ( N ) ) 160,160*155 

2473 

663 

♦POSSIBLY  PARAMETRIC 

2474 

663 

155  MORCAS=l 

2475 

663 

fstpar=i. 

2476 

663 

KASESV=KASE 

2477 

663 

KTPAR=0 

2478 

663 

GO  TO  165 

2479 

663 

160  CONTINUE 

2480 

663 

♦NOT  PARAMETRIC 

2481 

663 

GO  TO  360 

2482 

663 

♦PRE-PROCESSING  FOR  PARAMETRIC  STUDIES 

2483 

663 

♦SET  RUNNING  COUNTERS 

2484 

663 

165  DO  190  K= 1 » 8 

2485 

663 

I F ( DPARAM ( K ) ) 180,170*180 

2486 

663 

170  KPARMR ( K ) =0 

2487 

663 

GO  TO  190 

2488 

663 

180  KPARMR(K)=KPARAM(K)-1 

2489 

663 

190  CONTINUE 

2490 

663 

♦CHECK  NEED  FOR  UNIT  CHANGES  ON  INCREMENTS 

2491 

663 

♦  AFTER  GENERAL  TRANSFER 

2492 

663 

DO  200  K=l*8 

2493 

663 

200  DP ARM I ( K ) =DPARAM ( K ) 

2494 

663 

IF(FTIN)360,360*210 

2495 

663 

210  DPARMI ( 1 )=DPARMI ( 1) /144. 

2496 

663 

DP ARM  I (5 )=DPARMI (5)/144. 

2497 

663 

DPARMI (6)=DPARMI (6)/144. 

2498 

663 

GO  TO  360 

2499 

663 

*WAS  ("ASF  HIST  COMPl  FTFH  FIRST  P AR  AMFTR  T  C  C  ASF 

A  ^ 

?sno 

6A3 

240  IF(FSTPAR)250,270,250 
♦FIRST  PARAMETRIC  • 

250  DO  260  K=1 .8 
260  FPARMl <K)=BSO( K) 

FSTPAR=0. 

♦NORMAL  PARAMETRIC  CONTROL  -  CHECK  COUNTERS 
270  KASE=KASE+1 
DO  290  K=1 *4 
K  =  K 

KD=KONPAR(K»KOPT) 

I F ( KPARMR ( KD ) >290.290.280 
♦INCREMENT  K-TH  VARIABLE 

280  BSO(KD)=BSO(KD)+DPARMI(KD) 

KPARMR ( KD ) =KPARMR ( KD  >-l 
GO  TO  310 
290  CONTINUE 

♦EXIT  HERE  MEANS  PARAMETRIC  STUDY  FINISHED 
♦RESTORE  INPUT  VALUES  OF  MAJOR  VARIABLES 
DO  300  L=l*8 
300  BSO(L)=FPARMI (L) 

KASE=KASESV 
MORCAS=0 
CALL  RESET 

♦RETURN  FOR  NEW  DATA 
GO  TO  80 

♦NORMAL  SEQUENCING  -  RESET  RIGHTWARD  COUNTERS 

*  AND  VARIABLES 
310  KM1=K-1 

IF (KM 1)360.360.320 
320  DO  350  L=1*KM1 

KD  =  KONPAR ( L. KOPT ) 

I F ( DPARAM ( KD ) ) 340. 350*340 
340  KPARMR(KD)=KPARAM(KD)-1 
BSO ( KD ) =FPARM I { KD ) 

350  CONTINUE 
♦SR  ALL  FINISHED 
360  CONTINUE 
RETURN 
END(O.O.O) 

******************* 
♦RESET 663  RESETS  CERTAIN  CALCULATED  DATA  FIELDS  FOR 
♦GFP  663  GENERAL  FLOW  PASSAGE 

*  SC  SKIRVIN 

* 

SUBROUTINE  RESET 

* 

♦BEGIN  STORAGE  MAP 
♦GENERAL  USEAGE 
DIMENSION 

1AFFI  (100  ) » BS I  (11  ) » BSO  (11  )»CLOSSI(100 

2CLSMDK100  )»DHI  (100  ),DPARAM(8  ),DPARMI(8 

3FTABI  (8  ) .FPARMl ( 8  J.HTABI  (6  )»HMULTI(100 

4KPARAMI8  ) , KPARMR ( 8  ,  ) >NDH  (100  ) »NAFL  (100 

5NCLCSS (100  ) .NCLSMD ( 100  ).NRINGD(100  )»NHMULT!100 
60LENI  (100  ) ,PH I  SUM ( 100  ).PHIEX  (100  ) »P0  (100 

7P2  (100  ) .THICKD ( 100  J.TEXI  (100  ) .XOLD  (100 

20l  8HEDDUM(12  J.GMASS  (100  I.TW  :  ( 100  \ .REYNO  (100 


2501  66 

2502  66 

2503  66 

2504  66 

2505  66 

2506  66 

2507  66 

2508  66 

2509  66 

2510  66 

2511  66 

2512  66 

2513  66 

2514  66 

2515  66 

2516  66 

2517  66 

2518  66 

2519  66 

2520  66 

2521  66 

2522  66 

2523  66 

2524  66 

2525  66 

2526  66 

2527  66 

2528  66 

2529  66 

2530  66 

2531  66 

2532  66 

2533  66 

2534  66 

2535  66 

2536  66 

2537  66 

2538  66 

2539  66 

*****  2540  66 

2541  66 

2542  66 

2543  66 

2544  66 

2545  66 

2546  66 

2547  66 

2548  66 
2549  66 

)  .CLSGEN( 100  ) »  2550  66 
) .FMULTI ( 100  ) »  2551  66 
) » KRSCON ( 4  ) .  2552  66 

J.NLEN  (100  ).  2553  66 
) .NFMULT ( 100  ) »  2554  66 
) ,P1  ( 100  »  ,  2555  66 

) .BHIGH  (12  ) .  2556  66 

.)  ,FRIC  (100  *.  2557  66 


9C0NVEC ( 100) »DPINT(100)»0MEXI ( 100 >, PRTGAS ( 9 ) 
DIMENSION  PSEXI (100) ,PDYEXI ( 100) ,PEXI (100) 


♦BGO  NON— SUBSCRIPTED* 
EQUIVALENCE 
1 ( KTCHAD  *BGO ( 28 
2 ( KPOW  *BG0 ( 31 
3 ( K CHOKE » BGO ( 34 
4 ( LOC  , BGO (37 
5(LIMTRY,BG0(40 
6 ( NSKPHT  *  BGO ( 43 
7 ( NOPRT  »  BGO ( 46 
8 ( PRTSUM*  BGO ( 49 
9 ( SVACMN  *  BGO ( 52 


SINGLE* 


DOUBLE, 


CLEANUP 


) ) , (KTWADJ,BG0(29 
) ) » ( KOPT  » BGO (32 
) ) » ( KASE  » BGO (35 
) ) * ( LI MCHK*  BGO ( 38 
) ) , (MORCAS»BGO(41 
) ) ♦ ( NT  »BGO ( 44 
) ) , (NOSTGE*BGO(47 
)  ) » (RNKIN  »BGO ( 50 
) ) * ( SVACPR » BGO ( 53 


) ) » (KTCHTO,BG0(30 
) ) » (KOSCIL*BGO(33 
)  )  » (KASTEP,BG0(36 
) ) »(LMCHT0,BG0(39 
) ) » (NSKPPR,BG0(42 
) ) » ( NHOT  , BGO (45 
)  )  » (PARPRT»BG0(48 
) ) »(RNKOUT»BGO(51 
) ) » (TOTLND»BGO(54 


1 (OMEXIT»BGO(84) )» (DP  IN, BGO (85 ) ) , ( DPEX , BGO ( 86 ) ) 

2* ( TRANSF  »BGO ( 87 ) ) » ( TRANHL* BGO ( 88 ) ) , ( TRANHU , BGO ( 89 ) ) 


4 ( QOQBAR  »  BGO ( 94 ) ) ♦ ( NOGEOM  *BGO ( 95 ) ) 
EQUIVALENCE 


KAFFD  ♦  BG1  (  2 
2  (  BSO  *BG1 ( 213 
3(CLSGEN»BG 1(337 
4  (  DH I  ,BG 1 ( 639 

5 ( FTABI  » BG1 ( 755 
6 ( GMASS  *BG1 ( 868 
7(HMULTI *BG1(987 
8((CRSC0N,BG1(  1103 
9 ( NLEN  *BG1 ( 1307 
EQUIVALENCE 
1 (NHMULT  »BG1 ( 16  07 
2 (OLENI  *BG1 ( 1908 
3 ( PO  »BG1 ( 2208 
4 (  T E X I  »BG1 ( 2508 
5 ( XOL  *BG1 ( 2808 


) ) » ( AFF I  » BG1 ( 102 
) ) » ( BH I GH  »  BGl { 224 
) ) » (CLSMDI , BGl (438 
) ) , (DPARAM,BG1 (739 
) ) » (FPARMI »BG1 (759 
) ) * ( HTABI  *BG1 ( 968 
) ) » (KPARAM»BG1(1087 
) ) , ( NDH  »BG1(1107 
) ) ♦ (NCL0SS»BG1 ( 1407 


) ) » ( BSI  , BGl ( 202 
) ) » ( CLOSS I*BG1(237 
) ) » ( DHD  »  BGl ( 539 
) ) , (DPARMI »BG1 (747 
) ) » (FMULTI »BG1 (768 
) ) ♦ (HEDDUM,BG1 (974 
) ) , ( KPARMR  *8G1 ( 1095 
) ) » ( NAFL  , BGl ( 1207 
) ) » (NCLSMD,BG1(1507 


♦OPEN 


1  ( NHMULT  »  BGl  ( 1607  )),( NFMULT  ,  BGl  (  1707  )  )  ♦  (OLEND  *BGK1808 
2(0LENI  »BG1(1908  )),( PHI  SUM* BGl ( 2008  )),(PHIEX  ,BG1(2108 
3 ( PO  » BGl ( 2208  )),(Pl  *BG1(2308  )  ) » (P2  *BG1(2408 
4 ( T  E  X I  » BGl ( 25  08  ) ) , ( TW  »BG1(2608  ))»(XOLD  ,BG1(2708 
5 ( XOL  ,BG1 ( 2808  )),(REYNO  ,BG1(2908  ))»(FRIC  ,BG1(3008 
6(C0NVEC»BG1 (3108 ) ) » ( DP I  NT, BGl (3208 ) ) » (OMEX I ,BG1 ( 3308 )  ) 

7* (PRTGAS* BGl (3408) ) » ( PSEX I ,BG1 ( 3417 ) ) , (PDYEXI ♦ BGl (35 17) ) 
AT  3617*  KEEP  OPEN  UNTIL  3700 


EQUIVALENCE ( KONOPT  *KUP*BG2) » ( KONPAR »BG2 (21 ) ) » 
1 ( SAVTAB  »KSVT  AB*BG2(73) ) 

♦OPEN  1373 


*  *  *  MASTER  GROUPING 

DIMENSION  BGO(IQO) »BG 1(3700 ) ,BG2( 1372) »BG3(302) » 
1BG ( 5474 ) 


COMMON  BG 

*  *  *  END  OF  MASTER  GROUPING 

* 

♦END  OF  STORAGE  MAP 
* 

DIMENSION  GRTMPI ( 3 ) 
EQUIVALENCE  ( GRTMP I , BSO ( 2 ) ) 
♦RESET  TO  ZERO 

DO  HO  N=l,NOSTGE 
DHI(N)=0. 


2558 

663 

2559 

663 

2560 

663 

2561 

663 

) ) » 

2562 

663 

) )  * 

2563 

663 

) ) » 

2564 

663 

) )  * 

2565 

663 

) )  * 

2566 

663 

) ) » 

2567 

663 

) ) » 

2568 

663 

) ) » 

2569 

663 

) ) 

2570 

663 

))) » 

2571 

663 

2572 

663 

2573 

663 

'  BGO ( 93 ) ) 

,2574 

663 

2575 

663 

2576 

663 

)  )  * 

2577 

663 

)  )  * 

2578 

663 

)  )  » 

2579 

663 

)  )  » 

2580 

663 

)  )  » 

2581 

663 

)  )  * 

2582 

663 

)  )  » 

2583 

663 

)  )  » 

2584 

663 

)  ) 

.  2585 

663 

2586 

663 

)  )  * 

2587 

663 

)  )  » 

2588 

663 

)  )  » 

2589 

663 

)  )  » 

2590 

663 

)  )  » 

2591 

663 

2592 

663 

2593 

663 

2594 

663 

( 13,100) 

2595 

663 

2596 

663 

2597 

663 

2598 

663 

3)  ) 

2599 

663 

2600 

663 

2601 

663 

2602 

663 

2603 

663 

5173)  ) 

2604 

663 

2605 

663 

2606 

663 

2607 

663 

2608 

663 

2609 

663 

2610 

663 

2611 

663 

2612 

663 

2613 

663 

9A1  tx 

OLENl { N ) =0# 

AFF I ( N ) =0 •  -  " 

CLSGEN (N ) =0» 

FRIC(N)=0. 

CONVEC ( N ) =0. 

P0(N)=0. 

P1(N)=0. 

P2(N)=0. 

110  CONTINUE 

KASE=KASE+KASTEP 
IF(NEWSET)300, 370*300 
♦DID  CONVERGENCE  TAKE  PLACE 
300  I F ( SENSE  LIGHT  2)310*320 
310  DEAD=1 • 

CALL  NETERR ( 200 ♦ 1 ) 

SENSE  LIGHT  4 
GO  TO  360 

♦REPLACE  BSI  WITH  BSO 

320  CALL  DSTRB1 ( BSO »11»BSI»0»0*KSIG) 

QBAR=QTOTD 
♦CHECK  UNITS 

IF«FTIN)325»335*325 
325  I F ( FTOUT ) 340 *330 , 340 
330  TRANl=144. 

332  PT I N  =  PTI N*TRAN1 
PTEX=PTEX*TRAN 1 
PSEX=PSEX*TRAN1 
GO  TO  340 

335  IF(FTOUT)337»340,337 
337  TRANl=l./144. 

GO  TO  332 

340  IF(RNKIN)355»345*355 
345  IF(RNKOUT)350,360»350 

350  M=-l 

351  CALL  CONTMP (GRTMPI»3» GRTMP I »M ) 

DO  354  L  =  1 * 3 

I F ( 9999.+GRTMP I ( L ) ) 354* 352 *354 

352  GRTMP I ( L ) =  0 • 

354  CONTINUE 
GO  TO  360 

355  IF ( RNKOUT )360, 356*360 

356  M=1 

GO  TO  351 
360  NEWSET=0 
370  CONTINUE 
RETURN 
END ( 0*1*0) 

****************,  ******* 
♦SETYLD63  SR  TO  SELECT  VALUE  OF  DEPENDENT  VARIABLE  FOR 

*  CURRENT  ITERATION  OR  SET  RESULTS  FOR  OUTPUTTING  FROM 

*  FOR  GFPfANP  663) 

♦FINAL  SETUP  IF  1=0  OTHERWISE  NORMAL  ITERATION 

*  PROCEDURE 

* 

SUBROUTINE  SETYLD( ID*GD ) 

* 

*BEGIN  STORAGE  MAP  3  G  ^ 


2615  66 

2616  66 

2617  66 

2618  66 

2619  66: 

2620  66! 
2621  66: 
2622  66: 

2623  66: 

2624  66: 

2625  66: 

2626  66: 
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2646  66: 

2647  66: 
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2649  66: 

2650  66: 

2651  66: 

2652  66: 

2653  66: 

2654  662 

2655  662 

2656  662 

2657  662 

2658  662 

2659  663 
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2661  663 

2662  663 

2663  663 

2664  663 

2665  663 

2666  663 

2667  663 

2668  663 

2669  663 

2670  663 

?A7Ji  AA3 


*  *  *  MASTER  GROUPING 

DIMENSION  BG0(100)*BG1(3700)»BG 2(1372), BG 3(302),  " 

1BG ( 5474 ) 

EQUIVALENCE ( BGO*  BG ) » ( BG1 * BG ( 101 ) ) » ( BG2 » BG ( 3801 ) ) » ( BG3  »BG  ( 5 173 ) ) 

COMMON  BG 

*  *  *  END  OF  MASTER  GROUPING 
♦BAS  I C  OPTIONAL  VARIABLES 

DIMENSION  GRTMPI (3) »GRTMPO(3) 

EQUI VALENCE ( PIN »BSI ) , ( T IN , BS I ( 2 ) ) » ( TEX » BS I ( 3 ) ) » ( TWMAX  » 

IBS  I (4) ) » (PSEX,BSI (5) ) » ( PEX *BS I ( 6 ) ) » (W»BSI (7) ) ♦ (QTOT  * 

2BSI  (8) ) * (PIND,BSO) » (TIND»BS0(2) )» (TEXD*BSO(3) ) » (TWMAXD, 

3BSO ( 4 ) ) * (PSEXD»BSO(5 ) ) , ( PEXD »BSO ( 6 ) ) » < WD» BSO ( 7 ) ) » ( QTOTD, 

4BS0 ( 8 ) ) » (PSXOPI >BSI (9) ) ♦ (PTXOPI , BS 1(10)) ♦ (TEXOTI »BSI ( 11 ) ) * 
5(PSPID»BS0(9) ) ♦ (PTPID»BSO(10) ), ( TXT  ID* BSO ( 1 1 ) ) ♦ 

6 ( GRTMP I »  BSI ( 2 ) ) » ( GRTMPO  *  BSO ( 2 ) ) 

DIMENSION  TW( 100) ,BSI ( 11) *BSO( 11) 

EQUIVALENCE (TW»BG1( 2608 ) ), ( NHOT , BGO ( 45 ) ) , ( KOPT ,BG0 ( 32 ) ) » 

1 ( BS I , BG1 ( 202 ) ) * (BS0*BG1 (213 ) ) » ( DELH ,BGO ( 14 ) ) , ( MAXTMP , BGO ( 79 ) ) , 

2 ( KDD, BGO ( 77 ) ) » ( NOSTGE»BGO( 47 ) ) 

♦END  OF  STORAGE  MAP 

* 


1  =  1  D 

maxtmp=maxtmp 

kdd=kdd 

I F ( KOP  T —2)115*115*110 
110  I F ( I >180,120, 180 
♦CHECK  IF  STAGE  SPECIFIED 
115  I F ( MAXTMP )120,120,117 
117  TWMAXD=TW ( MAXTMP ) 

NHOT =MAXTMP 
GO  TO  135 

♦TWMAX 

120  TWMAXD=0. 

DO  130  N=l*NOSTGE 
I F ( TWMAXD-TW( N ) ) 125 , 125 , 130 
125  TWMAXD=TW(N) 

NHOT =N 

130  CONTINUE 
135  I F (  I ) 140 »  200, 140 
140  GD=TWMAXD 
GO  TO  230 
♦ITERATION 

180  GD=BSO ( KDD ) 

GO  TO  230 
200  CONTINUE 

♦REMAINDER  OF  OUTPUT  SETUP 
DO  210  M=1 , 7 

IF (KOPT-2*M+l) 210,220, 210 
210  CONTINUE 
♦TEXD  IS  USER-SPECIFIED 
QTOTD=WD*DELH 
♦SET  UP  RATIOS 

220  PSPID=PSEXD/PIND 

ptpid=pexd/pind 

txtid=texd/tind 

♦SR  FINISHED 


?30  cont r mi, if 
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2687  663 

2688  663 
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2690  663 

2691  663 
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2694  663 

2695  663 

2696  663 

2697  663 

2698  663 

2699  663 

2700  663 

2701  663 

2702  663 

2703  663 

2704  663 

2705  663 

2706  663 

2707  663 

2708  663 

2709  663 

2710  663 

2711  663 

2712  663 

2713  663 

2714  663 

2715  663 

2716  663 

2717  663 

2718  663 

2719  663 

2720  663 

2721  663 

2722  663 

2723  663 

2724  663 

2725  663 

2726  663 

2727  663 


■n  /n 


orr  -S  o  t  r* 


RETURN 

END(O»0»0) 

*  *  *  #  *  ♦  *  *  *  * 
*SUMPRT63  SR  TO  PRINT  SUMMARI 

*  TO  100  CASES  FOR 

*GFP  663  GENERAL  FLOW  PASSAGE 

*  SC  skirvin 

* 

SUBROUTINE  SUMPRT 

* 

♦BEGIN  STORAGE  MAP 
♦GENERAL  USEAGE 
DIMENSION 

1AFFI  (100  ) » BS I  (11 

2CLSMDI (100  ) »DHI  ( 100 

3FTABI  (8  ) »  FPARMI ( 8 

4KPARAM ( 8  )»<PARMR(8 
5NCLOSS ( 1 00  )  »NCLSMD ( 100 
60LENI  (100  ) »PHI SUM ( 100 
7P2  (100  )»THICKD(100 

8HEDDUM(12  5 »GMASS  ( 100 
9C0NVEC( 100) » DP  I  NT (100) 9C 


SUMMARIZED  OUTPUT  FOR 


) »BSO  (11 
) »DPARAM(8 
) s  HTAB I  (6 
)9NDH  (100 
)  ,NRINGD( 100 
)  » PH  I  EX  (100 
)  » TEXI  (100 
) » TW  (100 


5  ,CLOSSI (100 
)  »DPARMI ( 8 
)  »HMULT I ( 100 
)  »NAFL  (100 
i »NHMULT ( 100 
5  »P0  (100 

) »XOLD  (100 
)»REYNO  (100 


) jCLSGEN ( 100 
) sFMULTI ( 100 
)  ,KRSC0N(4 
)»NLEN  (100 
) sNFMULT ( 100 
)»P1  (100 

),BHIGH  (12 
J.FRIC  (100 


)CONVEC( 100) » DP  I  NT (100) 9OMEXI ( 100) ,PRTGAS(9  ) 
DIMENSION  PSEXI (100) 9PDYEXI (100) »PEXI ( 100) 


♦  BGO 


NON-SUBSCRIPTED* 
EQUIVALENCE 
1 ( AD  »  BGO ( 1 
2( ACCTMP»BG0(4 


SINGLE ♦ 


DOUBLE » 


CLEANUP 


3  (  BD 
4 ( BET  A2 
5 ( DEAD 
6 ( ENTRN 
7 ( FTI N 
8 ( GOAL 
9 ( I  TRY 


9 BGO (7 
9 BGO ( 10 
9BG0( 13 
9BG0( 16 
9BG0( 19 
9  BGO ( 22 
»BG0'(  25 


EQUIVALENCE 
1 ( KTCHAD9  BGO ( 28 
2 ( KPOW  9 BGO (31 
3 ( KCHOKE  9  BGO ( 34 
4 ( LOC  9 BGO (37 

5 ( LIMTRY9BGO ( 40 
6<NSKPHT9BG0(43 
7 ( NOPRT  9 BGO (46 
8 ( PRT SUM9  BGO (  49 
9 ( SVACMN9BGO ( 52 
EQUIVALENCE 
1(TRY0  9  BGO ( 55 
2 ( TRY3  9  BGO ( 58 
3 ( WHI  9 BGO ( 61 

4(YIELDl9BG0(64 
5 ( LIMPRS9BGO ( 67 


)  ) 9 ( ACCMNO  9  BGO ( 2 
) ) 9 ( ALLRUN  9  BGO ( 5 
) ) 9 (BLANKS9BG0( 8 
))9(CIN  9BG0(11 

))9(DELH  9 BGO ( 14 
) ) 9 ( ENTRNC9BGO ( 17 
) ) 9 (FTOUT  9BGO ( 20 
))9<GAS  9BGO ( 23 
) ) 9  <KTRCRD9BG0(26 

) ) 9 (KTWADJ9BG0(29 
))9(K0PT  9BGO (32 
))9(KASE  9BGO ( 35 
) ) 9 (LIMCHK9BG0(38 
) ) 9 (MORCAS9BGO(41 
))9(NT  9  BGO ( 44 

) ) 9 (N0STGE9BG0147 
))»(RNKIN  9 BGO ( 50 
) ) 9 ( SVACPR  9  BGO ( 5  3 


) ) 9 ( ACCPRS9  BGO ( 3 
) ) 9 (AUTOLS9BGO(6 
) ) » ( BET  A1  9  BGO ( 9 
))'»(CEX  9  BGO  ( 12 

) ) 9 (DERIV  9BG0( 15 
) ) 9 ( FD  9  BGO ( 18 

) ! 9 (FSTPAR9BG0(21 
))9(HIN  9  BGO ( 24 

) 5  9 (KALCNO9BG0«27 

)  )  ,(KTCHTO9BG0(30 
)  ) 9 ( KOSCI L  9 BGO ( 33 
)  )  9 (KASTEP9BG0(36 
) ) 9 ( LMCHTO  9  BGO ( 39 
)  ) 9 ( NSKPPR  9  BGO ( 42 
))9(NH0T  9  BGO (45 

)  )  9 (PARPRT9BG0(48 
)  )  9 (RNK0UT9BG0(51 
)  )  9 ( T OTLND9  BGO ( 54 

)  )  9 ( TRY2  9  BGO ( 57 


1(TRY0  9  BGO ( 55  ))S(TRY1  9BG0(56  ))9(TRY2  9BG0(57  ))9 

2 ( TRY3  9  BGO  (  58  ) ) 9 (TEST1  9BG0(59  ) ) 9 ( TOTLEN 9 BGO « 60  ))9 

3(WHI  9 BGO ( 61  ) ) 9 (WLO  9BG0(62  ) ) 9 ( Y I ELDO 9 BGO ( 63  )>9 

4(YIELDl9BG0(64  ) ) 9 ( YI ELD2 9BGO ( 65  ) ) 9 ( NOI NPT 9 BGO ( 66  ))» 

5 ( LIMPRS9BGO ( 67  ) ) 9 (PRTALL9BG0(68  ))9(0MAXD  9BG0(69  ))9 

6(OMAX9BGO(705 ) 9 ( 0MAX1 9 BGO { 71 ) ) 9 ( KOPTH 9 BGO ( 72 ) ) 9 

7  (DMCONV9BGO ( 75) )9 (KDl9BG0(76) ) 9 ( KDD9  BGO ( 77 ) ) 9 ( TRYMAX9 

878  )  )  9  ( MAXTMP  9BG0(  79  )  )  9  (  LMBULK.9BGO  (80)  )  9(TBBULK9BG0(81)  )  9 
9 ( KCHK1 9BGO ( 1 ) ) 9 ( KCHK2 9 BGO ( 7 ) ) 9 ( KCHK.3  9  BGO  ( 18 )  5  9 ( K.GAS9BGO ( 82 ) ) 
EQUIVALENCE ( PDY I N 9 BGO ( 73 ) ) 9 ( PDYEX  9 BGO ( 74 5  ) 9 ( OMINLT  9 BGO ( 83 ) S  9 
1 (OMEXIT9BGO ( 84 ) ) 9 ( DPI N 9 BGO ( 85 ) 5  9 ( DPEX9BG0( 86  )  ) 

/rn  MtIJi  .Df.ftfQQn  ;  /  TD  AMUIk  /  PQ  U  ZJ  /  / 
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2784  6 


rs  t  \  \ 


3 » (  NEWSET  ,BGO ( 90  ) ) » ( KTPAR » BGO ( 91 ) ) , ( KTOTPR ♦ BGO ( 92 ) ) » ( QBAR , BGO ( 93 ) >,2786 
4( QOQBAR  »BGO { 94 ) ) ♦ ( NOGEOM  »BGO ( 95 ) )  2787 

EQUIVALENCE  2788 


1(AFFD  , BG1 ( 2 
2 ( BSO  .  »BG1 ( 213 
3  (  CLSGEN, BG1 (337 
4( DHI  » BG1 ( 639 
5 ( FTABI  »BG1 (755 
6 ( GMASS  » BG1 ( 868 
7(HMULTI,BG 1(987 
8(KRSC0N,BG1( 1103 
9 ( NLEN  » BG1 ( 1307 
EQUIVALENCE 
1 ( NHMULT  »BG1 ( 1607 
2 ( OLEN I  »BG1 ( 1908 
3 ( PO  9 BG1 ( 2208 

4(  TEXI  s  BG1 ( 2508 
5 ( XOL  »  BG1 ( 2808 


) ) * ( AFF I  » BG1 ( 102 
5 ) , ( BH IGH  , BG1 ( 224 
) ) » ( CLSMDI » BG1 ( 438 
) ) , ( DPARAM ,BG1 (739 
)) 9 ( FPARM I , BG1 ( 759 
)>9(HTABI  9  BG1 ( 968 
) ) , ( KPARAM  9  BG1 ( 1087 
) ) 9 ( NDH  ,BG1(1107 
> ) , ( NCLOSS9  BG1 (1407 


)),(BSI  ♦ BG1 ( 202 

)  )  ,  (CLO-SSI  ,BG1(237 
) ) ♦ ( DHD  ,BG1 (539 
) )  ,(DPARMI9BG1(747 
)  )  9 ( FMULT 1 9  BG1 ( 768 
) ) 9 ( HEDDUM9  BG1 (974 
)  ) 9 ( KPARMR , BG1 ( 1095 
)),(NAFL  9BGK1207 
)  )  9  (NCLSMD9BGK  1507 


1  (  NHMULT  9  BG1  ( 1607  J  )  9  ( NFMULT,BG1  ( 1707  )),(OLEND  9BGKI8O8  )), 

2  ( OLEN  I  9BGK1908  ))  ,  (PHISUM9BGI  (2008  )  )  ,  ( PHI  EX  ,BG1(2108  )), 

3  (  PO  9BGK2208  >  >  9  C  p  1  9  BG1  (  2308  )  )  ,  ( P2  ,BG1(2408  )), 

4(  TEXI  9  BG1  ( 2508  )>9(TW  ,BG1(2608  )),(XOLD  9BGK2708  )), 

5  (  XOL  9BGI  (  2808  )  )  9  ( REYNO  ,661(2908  )),(FRIC  ,BGK3008  )), 

6 ( CONVEC9  BG1 (3108) ) 9(DPINT,BG1(3208 ) ) ,( OMEX I  9 BG 1(3308) ) 

7  9 ( PRTGAS  9BGI ( 3408 ) ) 9(PSEXI »BG1(3417) ) , ( PDYEXI ,BG1 ( 3517 ) ) 

♦OPEN  AT  36179  KEEP  OPEN  UNTIL  3700 

DIMENSION  KONOPT( 2» 10 ) sKONPAR (4, 13 ) ,SAVTAB (13,100) ,KSVTAB( 13,100) 
EQUIVALENCE (KONOPT , KUP , BG2 ) , ( KONPAR,BG2 (21 ) ) , 

1 ( SAVTAB9  KSVT  AB9  BG2 ( 73 ) ) 

♦OPEN  1373 

EQUIVALENCE! TH I CKD»BG3 ( 2 ) ) , ( NRINGD9BG3 ( 103 ) ) 9 ( PEXI ,BG3 ( 203 ) ) 

* 

EQUIVALENCE (COFFLM, FTABI ) » (EXPFLM, FTABI (2 ) ) , (COFFTB, 

1FTABK3)  ),(EXPFTB, FTABI  (4)  ) 

♦ 

♦BASIC  OPTIONAL  VARIABLES 

DIMENSION  GRTMPI (3) ,GRTMPO(3) 

EQUIVALENCE ( PIN , BSI )9(TIN,BSI(2))9 (TEX ,BSI (3 ) ) , ( TWMAX , 

IBS  I (4) ) 9 (PSEX9BSI (5 ) ) , ( PEX  9  BS I (6 ) ) , (W9BSI (7) ) 9 (QTOT9 
2BSI (8) ) , (PIND9BSO) 9 ( TIND,BSO(2) ) , ( TEXD, BSO ( 3 ) ) ,(TWMAXD, 

3BSO ( 4 ) ) , ( PSEXD9  BSO( 5 ) ) 9 (PEXD9BSO(6) ) 9 (WD,BSO(7) ) 9 ( QTOTD  9 
4BS0 ( 8 ) ) 9 (PSXOPI 9 BSI ( 9 ) ) 9 (PTXOPI ,BSI ( 10) ) 9 ( TEXOTI 9 BSI (11 ) ) , 

5 ( PSP  I D  9BSO( 9 ) ) , (PTPID,BS0( 10 ) ) , (TXTID,BSO( 11 ) ) 9 
6 (GRTMPI , BSI (2) ) 9 ( GRTMPO 9 BSO ( 2 ) ) 

* 

EQUIVALENCE ( COFHLM9HTABI ) 9 ( EXHPLM9  HTABI ( 2 ) ) * ( EXHRLM  9 
1HTABI (3) ) , ( COFHTB9HTABI (4) ! ,(EXHPTB,HTABI (5) ) 9(EXHRTB9 

2EQUI VALENCE (DPT  IN ,DP ARAM) 9 ( DTTI N, DPARAM ( 2 ) ) 9 ( DTT EX, DPARAM ( 3 ) ) » 


2787 

2788 

2789 

2790 

2791 

2792 

2793 

2794 

2795 

2796 

2797 

2798 

2799 

2800 
2801 
2802 

2803 

2804 

2805 

2806 

2807 

2808 

2809 

2810 
2811 
2812 

2813 

2814 

2815 

2816 

2817 

2818 

2819 

2820 
2821 
2822 

2823 

2824 

2825 

2826 

2827 

2828 
2829 


1 ( DTWMAX  9  DPARAM ( 4 ) 1 9 ( DPSEX, DPARAM ( 5 ) ) , ( DPTEX, DPARAM ( 6 ) ) 9 (DW 9 DPARAM! 2830 
27 ) 5 , ( DQTOT ,DP  ARAM ( 8 ) 5 , ( NOPTIN, KPARAM) 9  28  31 
3( NOTT IN, KPARAM ( 2) ) 9 ( NOT TEX  9 KPARAM ( 3 ) ) 9 ( NOTWMX  9NTWMAX  9 NOTWA ,  283  2 
4KP ARAM ( 4 ) ) , ( NOPSEX , KPARAM ( 5 ) ) , ( NOPTEX 9 KPARAM ( 6 ) ] 9 ( NOW 9KPARAM ( 7 ) >9  2833 
5 ( NOQJOT  9  KPARAM ( 8 ) )  2834 


f-  master  grouping 

DIMENSION  BGO ( 100 ) , BG1 ( 3700 ) ,BG2 ( 1372 )  ,BG3 ( 302 ) 9 
1BG ( 5474 ) 

EQUIVALENCE ( BGO  9BG) , ! BG1 9 BG ( 101 ) ) , ( BG2 9 BG ( 3801 ) ) , ( BG3 ,BG ( 5 173 ) ) 
COMMON  BG 

(■  END  OF  MASTER  GROUPING 


28  31 

2832 

2833 

2834 

2835 

2836 

2837 

2838 

2839 

2840 

2841 

2842 


♦END  OF  STORAGE  MAP 

2843 

663 

* 

2844 

663 

KALCNO=KALCNO 

2845 

663 

KGAS=KGAS 

2846 

663 

KTEST=8— KALCNO/2 

2847 

663 

♦SET  UNITS  LENGTH 

2848 

663 

KD1=1 

2849 

663 

IF ( FTOUT ) 120*120*110 

2850 

663 

110  KD1=2 

.  2851 

663 

♦TEMP 

2852 

663 

120  KD2=1 

2853 

663 

IF (RNKOUT >140,140, 130 

2854 

663 

130  KD2=2 

2855 

663 

140  KRT=1 

2856 

663 

♦CHECK  NEED  FOR  UNIT  CHANGES 

2857 

663 

IF(FTOUT)170,170,150 

2858 

663 

♦LENGTH 

2859 

663 

150  DO  160  K=l»KALCNO 

2860 

663 

SAVTAB(2»K)=SAVTAB(2,K)*144. 

2861 

663 

SAVT AB ( 6 »  K ) =SAVT  AB ( 6  » K ) *144* 

2862 

663 

SAVTAB(7,K)=SAVTAB(7»K)*144. 

2863 

663 

160  CONTINUE 

2864 

663 

170  IF (RNKOUT ) 180,180*200 

2865 

663 

♦TEMPERATURE 

2866 

663 

180  DO  190  K=l»KALCNO 

2867 

663 

CALL  CONTMP ( SAVTAB ( 3  » K ) » 3 »SAVTAB ( 3 > K ) ,-l ) 

2868 

663 

190  CONTINUE 

2869 

663 

♦NORMAL  CONTINUATION  PRINT  UNIT 

HEADING 

2870 

663 

200  CALL  PRTUNT(2»KD1»KD2) 

2871 

663 

GO  T0(210»250,230) »KRT 

2872 

663 

♦START  SUMMARY  TABLE 

2873 

663 

210  KL  = 1 

2874 

663 

KU=KALCNO 

2875 

663 

EX  I T  =  1  • 

2876 

663 

IF (41-KALCNO) 220,230,230 

2877 

663 

220  KU=4l 

2878 

663 

EXIT=0. 

2879 

663 

230  KD=KU-KL+1 

2880 

663 

PRINT  32005, KD»PRTGAS(KGAS) , 

KGAS, KSVTAB ( 1 ,KL ) , 

2881 

663 

1KSVTAB ( 1 »KU ) » ( KSVTAB ( 1,K) »SAVTAB ( 8 , K ) , SAVTAB ( 2 , K ) , 

2882 

663 

2SAVTAB ( 7»K) , SAVTAB ( 1 1 , K ) , SAVTAB ( 6 , K ), SAVTAB ( 10 , K  ) , 

2883 

663 

3K=KL»KU) 

2884 

663 

32005  FORMAT 

2885 

663 

SPACE 

2886 

663 

SUMMARY  PRINTOUT  FOR  -I  POINTS 

(GAS  IS-X  -A,  NO  -I) 

2887 

663 

(CASES  -I  THRU  -I) 

2888 

663 

SPACf 

2889 

663 

WEIGHT  INLET 

EXIT  PTEX/  EXIT 

PSEX/28  90 

663 

CASE  FLOW  P-TOT 

P-TOT  PTIN  P-STAT 

PTIN2891 

663 

SPACE 

2892 

663 

-I  -1PE5  -0PF3 

-F3  -F5  — F3 

-F52893 

663 

REPEAT  1 

2894 

663 

END  OF  FORMAT 

2895 

663 

* 

2896 

663 

IF(KTEST)240, 250,250 

2897 

663 

240  KRT=2 

IP 

2898 

663 

.  -  GO..TQ  200 

2899 

663 

250  PRINT  32010, KD»PRTGAS(KGAS) ,KGAS»KSVTAB( 1,KL) , 

1KSVT AB ( 1  »KU )  »  {  KSVTAB  ( 1, K )  ,SAVTAB(3,K)  ,SAVTAB  (4»K  )  S 
2SAVT  AB ( 12 » K ) ,SAVTAB(9,K) »SAVTAB ( 5 , K ), KSVTAB ( 13,K)» 
3K=KL,KU) 

32010  FORMAT 
SPACE 

SUMMARY  PRINTOUT  FOR  -I  POINTS  (GAS  IS-X  -A,  NO  -I) 


(CASES 

SPACE 


-I  THRU 


INLET 

T-TOT 


CASE 

SPACE 

-I  -0PF1 

REPEAT  1 
END  OF  FORMAT 


-I 


EXIT 

T-TOT 

-FI 


TTEX  / 
TT  IN 

-F5 


HEAT 

ADDITION 

-1PE5 


MAX  AVE 
SURF-TEMP 

-0PF1 


AT  STGE 


-I 


260 


270 

280 

290 


IF (EXIT >300,260,300 
KL=KU+1 
KRT  =  3 

IF(86-KALCN0 >270,290,290 
IF ( 86“ KU  >  290,290,280 
KU  =  86 
GO  TO  200 
KU=KALCNO 
EXlTxl. 

GO  TO  200 
♦FINISHED 

300  KALCNO=0 
RETURN 
END ( 0,0,0) 

•fr*********************** 

CTWLT  00  A  SR  TO  CALCULATE  WALL  TEMPS  FOR  LALMINAR  OR  TURBULENT  FLOW 
*  WITH  OR  WITHOUT  ENTRANCE  LENGTH  EFFECTS 
♦GFP  663  GENERAL  FLOW  PASSAGE 


SUBROUTINE  TWLT ( I  DENT ) 

* 

♦BEGIN  STORAGE  MAP 

♦GENERAL  USEAGE 
DIMENSION 
1AFFI  (100 
2CLSMDI ( 100 
3FTABI  (8 
4KPARAM ( 8 
5NCLOSSS 100 
60LEN I  (100 
7P2  (100 

8HEDDUM ( 12 


)»BSO  (11 
) »DPARAM(8 
) ,HTABI  (6 
> , NDH  (100 
) ,NRINGD( 100 
)  , PH  I  EX  (100 
) »TEXI  (100 
)  , TW  (100 


) ,CLOSSI ( 100 
) ,DPARMI (8 
) »HMULT I ( 100 
) , NAFL  (100 
) ,NHMULT( 100 
)»P0  (100 

) ,XOLD  (100 
),REYNO  (100 


♦  BGO 


) , BS I  (11  ) »BSO  (11  ) ,CLOSSI ( 100  ) 

) »DH I  (100 

) ,FPARMI ( 8 
)  ,KPARMR( 8 
)  »NCLSMD( 100 
) »PHISUM( 100 
>  »THICKD( 100 
5  »GMASS  (100 
9CONVEC (100),DPINT(100) ,OMEXI ( 100 ) , PRTGAS ( 9 ) 
DIMENSION  PSEXI ( 100 ) ,PDYEXI ( 100) ,PEXI (100) 
NON-SUBSCRIPTED,  BG1  SINGLE,  BG2  DOUBLE,  BG3  CLEANUP 
EQUIVALENCE 

) ) , (ACCMNO,BGO(2  )) 

)>,  (Allrun, bgo(5  n 

) 5 , (BLANKS, BGO (8  )) 

>),(CIN  , BGO ( 1 1  )) 

) ) » (DELH  ,BG0 ( 14  )) 


»CLSGEN (100 
,FMULTI (100 
, KRSCON ( 4 
»NLEN  (100 
,NFMULT( 100 
,P1  (100 

, BHIGH  (12 
,FRIC  (100 


1 (AD  , BGO ( 1 

2 ( ACCTMP , BGO ( 4 
3 ( BD  , BGO ( 7 

4 ( BETA2  »  BGO (  10 
5 ( DEAD  , BGO ( 13 


,  ( ACCPRS »BGO 
,  (AUTOLS,BGO 
,  (BETA1  , BGO 
,  BGO 
,  BGO 


,  (CEX 
,  (DERIV 


(3 
(6 
(9 
( 12 
(15 


)  )  , 
)  )  , 
)  )  , 
)  )  » 
)  )  * 


2900  663 

2901  663 

2902  663 

2903  663 

2904  663 

2905  663 

2906  663 

2907  663 

2908  663 

2909  663 

2910  663 

2911  663 

2912  663 

2913  663 

2914  663 

2915  663 

2916  663 

2917  663 

2918  663 

2919  663 

2920  663 

2921  663 

2922  663 

2923  663 

2924  663 

2925  663 

2926  663 

2927  663 

2928  663 

2929  663 

2930  663 

2931  663 

2932  663 

2933  663 

2934  663 

2935  663 

2936  663 

2937  663 

2938  663 

2939  663 

2940  663 

2941  663 

2942  663 

2943  663 

2944  663 

2945  663 

2946  663 

2947  663 

2948  663 

2949  663 

2950  663 

2951  663 

2952  663 

2953  663 

2954  663 

2955  663 

2956  663 


6 ( ENTRN  9 BGO ( 16 

5 ) » ( ENTRNC  >BG0 ( 17 

)  ) 

>(FD  >BGO ( 18 

)  )  9 

2957 

661 

7(FTIN  9  BGO ( 19 

) ) 9 ( FT  OUT  >BG0(20 

)  ) 

9  (FSTPAR,B‘60(21 

)  )  > 

2958 

661 

8 ( GOAL  >BG0 ( 22 

))> (GAS  > BGO (23 

)  ) 

> (HIN  >BG0(24 

)  )  ♦ 

2959 

661 

9 ( I  TRY  >  BGO ( 25 

) ) 9 (KTRCRD>BG0(26 

)  ) 

9 (KALCNO>BGO(27 

)  ) 

2960 

661 

EQUIVALENCE 

2961 

661 

1 ( K TCHAD 9 BGO ( 28 

) ) > ( KTWADJ  >BG0 ( 29 

)  ) 

9 (KTCHTO>BGO(30 

)  )  9 

2962 

661 

2 ( KPOW  >  BGO ( 31 

))>(KOPT  >  BGO ( 32 

)  ) 

9 (KOSCIL>BGO(33 

)  )  9 

2963 

661 

3 ( K CHOKE  9 BGO ( 34 

) ) 9 ( KASE  9  BGO ( 35 

)  ) 

> (KASTEP  >BG0(36 

)  )  9 

2964 

66 1 

4 ( LOC  >  BGO ( 37 

5 ) > ( LIMCHK>BGO ( 38 

)  ) 

9 (LMCHTO>BGO(39 

)  )  9 

2965 

661 

5(LIMTRY>BG0(40 

5 ) 9 ( MORCAS  >  BGO (41 

)  ) 

9 (NSKPPR9BG0(42 

)  )  9 

2966 

661 

6 ( NSKPHT  » BGO ( 43 

))> (NT  > BGO ( 44 

)  ) 

9(NH0T  9  BGO ( 45 

)  )  > 

2967 

661 

7 ( NOPRT  9 BGO (46 

) ) » (NOSTGE»BGO(47 

)  ) 

9 (PARPRT>BG0(48 

)  )  9 

2968 

661 

8 ( PRTSUM  >BG0 ( 49 

5  5  > ( RNKIN  >BG0(50 

)  ) 

9 (RNKOUT9BGO(51 

)  )  9 

2969 

66 1 

9 ( SVACMN  >BG0 ( 52 

) ) 9 (SVACPR>BG0(53 

)  ) 

9 (TOTLND>BGO(54 

)  ) 

2970 

66 1 

EQUIVALENCE 

2971 

661 

1(TRY0  >  BGO ( 55 

) ) 9 ( TRY1  >  BGO ( 56 

)  ) 

9 ( TRY2  >BG0(57 

)  )  9 

2972 

661 

2(TRY3  >BG0(58 

) ) 9 ( TEST1  9  BGO ( 59 

)  ) 

9 (TOTLEN9BG0(60 

)  )  9 

2973 

661 

3 ( WHI  9  BGO ( 61 

3 ) 9 ( WLO  9  BGO ( 62 

)  ) 

9(YIELD0>BG0(63 

)  )  9 

2974 

661 

4(YIELD1>BG0(64 

) ) 9 (YIELD2»BG0(65 

)  ) 

9 (NOINPT>BGO(66 

)  )  > 

2975 

661 

5 (LIMPRS»BG0(67 

) ) 9 ( PRTALL  >  BGO { 68 

)  ) 

9(0MAXD  9BGO (69 

)  )  9 

2976 

661 

6 ( OMAX  9  BGO ( 70 ) ) > (OMAX1 >BG0(71 ) ) 9 (KOPTH 

9  BGO ( 72  )  )  9 

2977 

661 

7  ( DMCONV  9 

BGO ( 75 ) 5  > ( KDI > BGO (76)5 

9 (KDD9BG0(77) ) 9 (TRYMAX 

9BGO ( 2978 

661 

8785) > (MAXTMP>BG0(79) ) 9 { LMBULK>BG0 ( 80 ) ) 9 

( TBBULK  >BGO ( 81 ) ) 9 

2979 

661 

9 ( KCHK1 >  BGO ( 1 ) ) 9 ( KCHK2 > BGO ( 7 ) ) >(KCHK3> 

BGO ( 18) ) 9 ( KGAS>BGO ( 82  )  ) 

2980 

661 

EQUIVALENCE (PDYIN 

9BGO ( 73 ) ) 9 (PDYEX9BG0(74) ) 9 ( OMI NLT 9 BGO ( 83 ) ) 9 

2981 

661 

1  (OMEXIT>BGO(84) ) > 

( DP  I N  9  BGO ( 85 ) ) 9(DPEX 

>BGO( 86 ) ) 

2982 

661 

2  » ( TRANSF»BGO ( 87 ) ) » ( TRANHL * BGO < 88 ) ) » ( TRANHU, BGO ( 89 ) ) 

3* ( NEWSET » BGO ( 90 ) ) > ( KTPAR > BGO ( 91 )  ) , < KTOTPR ♦ BGO ( 92 ) ) » ( QBAR » BGO ( 93 ) ) 
4 ( QOQBAR  »BG0 ( 94 ) ) * ( NOGEOM > BGO ( 95 ) > 

EQUIVALENCE 

KAFFD  » BG1  ( 2  )  )  »  ( AFF I  »BG1(102  ))»(BSI  >BG1(202  ))> 

2 ( BSO  ♦BG1( 213  ))>(BHIGH  >BG1(224  ))>( CLOSSI » BG 1 ( 237  ))> 

3(CLSGEN>BG 1(337  ) ) » ( CLSMDI » BG1 ( 438  ) ) » ( DHD  >BG1(539  J), 

4(  DHI  ♦BGK639  ) ) » ( DPARAM > BGI ( 739  )  )  » (DP  ARM  I  » BGI (747  ))> 

5 ( FTABI  »BG1 ( 755  ) ) » ( FPARM I >  BGI ( 759  ) ) » (F MULT  I »BG1 (768  ))> 

6( GMASS  »BG1 ( 868  ))»(HTABI  >BG1(968  ) ) » (HEDDUM»BG1 (974  ))> 

7(HMULTI*BG1(987  ))>( KPARAM > BGI ( 1087  ) ) » ( KPARMR  *  BG1 ( 1095  )). 
8(KRSCON»BG1(1103  ))»(NOH  >BG1(1107  ))»(NAFL  »BG1(1207  ))» 

9 ( NLEN  »  BGi ( 1307  )  )  >  ( NCLOSS*  BG1 (1407  ) ) » ( NCLSMD>BG1 (1507  )) 
EQUIVALENCE 

1 ( NHMULT »BG1 ( 1607  ))>( NFMULT > BGI ( 1707  ) ) * (OLEND  ,BG1(1808  ))» 
2(0LENI  »BG1 ( 1908  ) ) » ( PHI  SUM »  BGI (2008  ))*(PHIEX  »BG1(2108  ))» 

3 (PO  >  BGI ( 2208  )>»(Pl  »BG1(2308  ))>(P2  »BG1(2408  ))» 

4( TEXI  >851(2508  ) ) » ( TW  ,BG1(2608  ))»(X0LD  »BG1(2708  ))> 

5  ( XOL  »BG1 ( 2808  ))»(REYNO  »BG1(2908  )),(FRIC  ,BG1(3008  ))> 


) ) , (BSI  »BG1 (202 
) ) » (CLOSSI »  BG 1 ( 237 
) ) » ( DHD  »BG1 (539 
) ) » (DPARMI »BG1 (747 
) ) »(FMULTI»BG1(768 
) ) » (HEDDUM»BG1 (974 
) ) »(KPARMR,BG1(1095 
) ) » ( NAFL  »BG1 (1207 
) ) »(NCLSMD,BG1(1507 


1 ( NHMULT »BG1 ( 1607  ))>( NFMULT > BGI ( 1707  ))» (OLEND  ,BG1(1808  )), 
2(0LENI  »BG1 ( 1908  ))»( PHI SUM> BGI ( 2008  ))»(PHIEX  >BG1(2108  ))> 

3  (PO  » BGI  (  2208  )  )  »  (  Pi  9BGK2308  ))>(P2  »BG1(2408  ))> 

4(  TEXI  9  B51  ( 2508  )  )  9  (  TW  9BGK26O8  ))9(X0LD  9BGK2708  ))> 

5 ( XOL  9 BGI ( 2808  ))>(REYNO  >661(2908  ))>(FRIC  >BG1(3008  ))> 

6 ( CONVEC>BGi ( 3108 ) ) > (DPI NT > BGI (3208 ) ) 9  < OMEX I > BGI ( 3308 )  ) 

7 >  <  PRTGAS > BGI ( 3408 ) ) > ( PSEX I >BG1 ( 3417 5 ) 9 ( PDYEXI 9 BGI ( 35 17 ) ) 

*OPEN  AT  3617>  KEEP  OPEN  UNTIL  3700 

DIMENSION  KONOPT(2>10) 9 KONPAR (4 9 1 3 ) >SAVTAB( 13 9 100) >KSVTAB ( 13 9 100 ) 
EQUIVALENCE (KONOPT 9 KUP 9 BG2) > (KONPAR>BG2 (21 ) ) > 
1(SAVTAB9KSVTAB>BG2(73) ) 

♦OPEN  1373 

EQUIVALENCE ( THI CKD>  BG3 ( 2 ) ) > (NRINGD>BG3 ( 103 ) ) > ( PEXI >BG3(203 ) ) 

EQUIVALENCE ( COFFLM9  FT  ABI ) > ( EXPFLM>  FT  AB I (2)  ) 9 ( COFFTB  9 
lFTABI ( 3 ) ) > ( EXP FTB  9 FTABI ( 4) ) 

*  ■  2/5T 


>BGi(i808 
,BG1 (2108 
>BG1 (2408 
>BG1 (2708 
>BG1 ( 3008 


2983 

92984 

2985 

2986 

2987 

2988 

2989 

2990 

2991 

2992 

2993 

2994 

2995 

2996 

2997 

2998 

2999 

3000 

3001 

3002 

3003 

3004 

3005 

3006 

3007 

3008 

3009 

3010 

3011 

3012 
sat 


cn  tr\  cn  cn  cn  m  m  cn  cn 


*BASIC  OPTIONAL  VARIABLES 

DIMENSION  GRTMPI (3) »GRTMPO(3) 

EQUIVALENCE ( PIN*  BSI ) ♦ (TIN*BSI (2) ) * (TEX*BSI (3) ) » (TWMAX» 

IBS  I (4) ) » (PSEX,BSI (5 ) ) » ( PEX >BS I ( 6 ) ) , ( W »BSI ( 7 ) ) » ( QTOT  » 

2BSI (8) ) »  <PIND,BSO) > (TIND»BSO(2) ) » ( TEXD*BSO( 3 ) ) ♦ ( TWMAXD » 

3BSO ( 4 ) ) ♦ (PSEXD*BSO(5 ) ) » ( PEXD» BSO ( 6 ) ) » ( WD, BSO ( 7 ) ) » (QTOTD* 

4BS0 ( 8 ) ) ♦ (PSXOPI ,BSI (9) ) ,  (PTXOPI »BSI (10) ) , (TEXOTI »BSI ( 11 ) ) , 
5(PSPID»BS0(9) ) ♦ ( PTP I D  *BSO( 10) ) ,(  TXT  ID*  BSO  ( ID ) ♦ 

6 ( GRTMP I  * BSI ( 2 ) ) * (GRTMPO,BSO(2 ) ) 

* 

EQUlVALENCE(COFHLM,HTABI ) , ( EXHPLM»HTABI (2 ) ) » ( EXHRLM » 

1HTABI (3)  ) > ( COFHTB »HTAB I (4) >  » ( EXHPTB ,HTAB I ( 5 ) ) » ( EXHRTB  * 

2HTABI (6) ) 

EQUIVALENCE ( DPT  I N»DPARAM ) » ( DTTI N»  DPARAM ( 2 ) ) » ( DTTEX  »DPARAM ( 3 ) ) » 
1(DTWMAX»DPARAM(4) ) » (DPSEX» DPARAM (5 ) ) » ( DPT EX » DPARAM ( 6 ) ) ,  (DW» DPARAM 
27 ) ) , (DQTOT, DPARAM (8 ) ) , ( NOPTIN»KPARAM) * 

3 ( NOTT I N » KPARAM ( 2 ) ) » ( NOTTEX* KPARAM ( 3 ) ) » (NOTWMX»NTWMAX,NOTWA» 
4KPARAM(4) ) »< NOPSEX, KPARAM ( 5 ) ) »( NOPTEX , KPARAM ( 6 ) ) » ( NOW  »KPARAM ( 7 ) ) * 
5 ( NOQTOT » KPARAM ( 8 ) ) 


* 

* 


* 

* 


*END 

* 


*  master  GROUPING 

DIMENSION  BG0( 100) »BG1( 3700) ,BG2( 1372 ) >BG3(302) , 

1BG { 5474 ) 

EQUIVALENCE (BG0»BG) » (BG1 »BG( 101 ) ) » ( BG2 » BG  ( 3801 ) ) ♦ ( BG3 »BG ( 5173 ) ) 

COMMON  BG 

*  END  OF  MASTER  GROUPING 

EQUIVALENCE (COFFLM»FTAB I ) » ( EXPFLM* FTABI ( 2 ) ) » ( COFFTB  »FTAB 1(3)  ) » 

1 ( EXPFTB»  FTABI (4) ) » ( ND»NOSTGE) » ( G»GMASS ) » ( REAVG  *REYNO ) » 

2 ( OMEX  »OMEX I ) 

DIMENSION  G( 100 ) »REAVG( 100) »OMEX( 100) 

DIMENSION  AQPR ( 2 ) 

EQUIVALENCE! A, AQPR) , (QPR»AQPR(2) ) 

DIMENSION  TSTGR ( 13 ) 

EQUIVALENCE(VIP.TSTGR)»(TSTP,TSTGR(2) ) » ( VIM* TSTGR ( 3 ) ) » 
1(TSTM»TSTGR(4) ) » ( VlMX  »TSTGR ( 5 ) ) , ( VI MN , TSTGR ( 6 ) ) , 

2(VI0»TSTGR(7) ) , ( VI 1 , TSTGR ( 8 ) ) , ( VI 2 » TSTGR ( 9 ) ) ♦ ( VI 3 , TSTGR ( 10 ) ) » 

3( VD0,TSTGR( 11) ) » ( VD1 *TSTGR ( 12 ) ) ,( VD2 » TSTGR ( 13 ) ) 

OF  STORAGE  MAP 


IF(IDENT)90, 95*90 
90  PRINT  32000 
32000  FORMAT 
SPACE  3 

****  WALL  TEMP  CALC  (SR  TWLT )  HAS  FULL  FANTAN  ( ANP  542) 
****  ANALYSIS  WITH  TRANSITION  AND  ENTRANCE  LENGTH  EFFECTS. 
****  PROPERTY  FUNCTIONS(R»ENFRMT  »TFRMEN  * VI  SC  »PRN»  T  C )  DE- 
****  TERMINE  WHICH  GASES  CAN  BE  HANDLED. 

END  OF  FORMAT 

* 

GO  TO  460 

* 

^INITIALIZE 

95  TAVG=TEXI(1) 

CALL  FPRNT(4HTEXI ,TEXI , I  TRY ,NOSTGE , KCHK3 ) 

SUMLEN=0.  , 

TINIsTINH 


3014 

663  | 

3015 

663  1 

3016 

663  ; 

3017 

663  '  i 

3018 

663  ! 

3019 

663  ! 

3020 

663 

3021 

663 

3022 

663  ; 

3023 

663  1 

3024 

663  I 

3025 

663  ; 

3026 

663  i 

3027 

663 

(3028 

663 

3029 

663 

3030 

663  ; 

3031 

663 

3032 

663 

3033 

663 

3034 

663  i 

3035 

663 

3036 

663 

3037 

663  ; 

3038 

663 

3039 

663  : 

3040 

663 

3041 

663 

3042 

663 

3043 

663 

3044 

663 

3045 

663 

3046 

663 

3047 

663 

3048 

663 

3049 

663 

3050 

663 

3051 

663 

3052 

663 

3053 

663 

3054 

663 

3055 

663 

3056 

663 

3057 

663 

3058 

663 

3059 

663 

3060 

663 

3061 

663 

3062 

663 

3063 

663 

3064 

663 

3065 

663 

3066 

663 

3067 

663 

3068 

663 

3069 

663  , 

-3070 

*SET  STAGE  LOOP 

3071 

66: 

DO  450  N=1»ND 

3072 

66: 

DO  98  L=l»13 

3073 

66: 

VFACT  =  1* 

3074 

66 

98  TSTGR ( L ) =0« 

3075 

66: 

TLO=0 • 

3076 

66: 

THI =1«  E  +  5 

3077 

66: 

T  AVGl= ( T INI+TEX I(N))/2, 

3078 

66: 

REYNO(N)=G(N)*DHI ( N ) *12. /VISC (TAVGL,GAS ) 

■3079 

66: 

♦  SET  KTRAN  TO  INDICATE  TRANSITION 

3080 

66: 

♦SET  NOSKIP=0  IF  NO  FILM  TEMP  CALC  NEEDED 

3081 

66: 

NOSKIP=0 

3082 

66: 

IF(REYNO(N)-TRANHL)102,102,110 

3083 

66: 

♦LAMINAR 

3084 

66: 

102  KTRAN=~1 

3085 

66: 

IF(LMBULK)140,105,140 

3086 

66: 

105  N0SKIP=1 

3087 

66: 

GO  TO  140 

3088 

66: 

110  IF (REYNO(N)-TRANHU) 120,130,130 

3089 

66: 

♦TRANSITION 

3090 

66: 

120  KTRAN=0 

3091 

66: 

EQUIVALENCE ( KTBULK »TBBULK ) 

3092 

66: 

IF(LMBULK*KTBULK) 140,125,140 

3093 

66: 

125  N0SKIP=1 

3094 

66: 

GO  TO  140 

3095 

66: 

♦TURBULENT 

3096 

66: 

130  KTRAN=+1 

3097 

66: 

IF CTBBULK >140,135,140 

3098 

66: 

135  N0SKIP=1 

3099 

66: 

140  CONTINUE 

3100 

66: 

IF ( N  1)180,180,190 

3101 

66: 

180  SDELH=DELH*PHI SUM ( N ) 

3102 

66: 

GO  TO  200 

3103 

66: 

190  SDELH=DELH*(PHISUM(N)-PHISUM(N-1) ) 

3104 

66: 

200  IF(OLENI (N) >210,210,215 

3105 

66: 

210  TW ( N ) =TEXI ( N ) 

3106 

66: 

CONVEC ( N ) =0 . 

3107 

66: 

GO  TO  420 

3108 

66: 

215  CONTINUE 

3109 

66: 

CALL  FPRNT(5HSDELH,SDELH,N,1,KCHK3) 

3110 

66: 

C0N1=4»*0LENI (N)/(GMASS(N)*PHIEX(N) *DHI (N) ) 

3111 

66: 

CALL  FPRNT ( 4HC0N1 ,C0N1,N,1 ,KCHK3 ) 

3112 

66: 

SUMLEN=SUMLEN+OLENI ( N ) 

3113 

66: 

V I SCAV=VI SC ( TEX  I ( N ) , GAS ) 

3114 

66: 

KTPRS=1 

3115 

66: 

♦ITERATION  RETURN 

3116 

66: 

220  TFACT=VFACT»TEXI (NJ/TAVG 

3117 

66: 

FREYNO=REYNO(N)*TFACT 

3118 

66: 

CALL  FPRNT ( 6HFREYNO , FREYNO ,KTPRS, 1 »KCHK3 ) 

3119 

66: 

CALL  FPRNT(4HTAVG,TAVG,KTPRS,1,KCHK3> 

3120 

66: 

STGPRN=PRN(TAVG,GAS) 

3121 

66: 

♦SELECT  N ( RE )  RANGE 

3122 

66: 

IF(KTRAN)240, 290,260 

3123 

66' 

* 

3124 

66: 

♦LAMINAR 

3125 

66: 

240  KRT=1 

*'7 

3126 

66: 

245  STGNNU=HTABI ( 1 ) ♦( STGPRN**HTABI ( 2 ) >  * ( FREYNO»*HT AR I t 3  >  J 

31  77 

*IS  ENTRANCE  LENGTH  EFFECT  (ELE)  WANTED 

IF (ENTRN>255» 255*250  '  ' 

♦ELE  WANTED  ' 

250  STGNNU=(STGNNU**3+1.225*FREYNO*STGPRN*(DHI ( N ) /SUMLEN ) >**.33333 
255  GO  TO ( 320 ♦ 300 ) »  KRT 

* 

♦TURBULENT 
260  KRT=1 

265  STGNNU=HTABI ( 4 ) *( STGPRN**HTAB 1(5) ) * ( FREYNO**HTABI (6) ) 

*IS  ele  wanted 

IF ( ENTRN  >285*285*270 
*ELE  WANTED 

270  I F ( SUMLEN /DHI ( N )—FREYNO**. 25 >280*285*285 
280  STGNNU=1.5*STGNNU*( DHI (N) /SUMLEN >**.16 
285  GO  TO(320,310) ,KRT 

* 

♦transitional 

290  KRT=2 

svtrl=tranhl 

tranhl=tranhl*tfact 

svtru=tranhu 

tranhu=tranhu*tfact 

svnre=freyno 

freyno=tranhl 

GO  to  245 

300  PRN103=STGPRN**. 3333 

ETAO=STGNNU/(FREYNO*PRN103 ) 

ETAOl=LOGF{ETAO> 

freyno=tranhu 

GO  TO  265 

310  ETA1=STGNNU/(FREYN0*PRN103) 

freyno=svnre 

A= ( C TRANHU*TRANHL ) / ( TRANHL-TRANHU ) ) * ( TRANHU* 

1 ( LOGF (ETAl)-ETA0L)/(-( TRANHL-TRANHU ) )-(HTABI(6 )-l. > ) 

B= ( A/TRANHU+HT ABI ( 6  J -1. ) /TRANHU 
C=ETAOL-A/TRANHL-B*TRANHL 
ETA=EXPF(A/FREYNO+B*FREYNO+C> 

STGNNU=ETA*FREYN0*PRN103 
TRANHL=SVTRL 
TRANHU=SVTRU 

* 

♦NUSSELT  NO  CALCULATED 

320  CONVEC«N)=STGNNU*TC(TAVG»GAS)/DHI (N) 

1*HMULTI(N> 

CALL  FPRNT ! 6HSTGNNU*  STGNNU  »KTPRS  *  1 » KCHK3 ) 

CALL  FPRNT 1 6HC0NVEC» CONVEC ( N ) *N»1»KCHK3) 

IF ( KlPRS-2 )325>360»360 
325  TWN=TEXI (N  5  +SDELH/ ( C0N1*C0NVEC ( N ) ) 

CALL  FPRNT(3HTWN»TWN»N*1 »KCHK3 ) 

♦TEST  FOR  SIMULTANEOUS  BULK  CORRELATIONS 
IF (NOSKIP)330,420,330 
330  IFIKTPRS-l >336»332*336 
♦FIRST  PASS 
332  VI0=TWN 
VI 1=TWN 
VI 2=TWN 

♦STEP  ITERATION  COUNTER  AND  CALC  FILM  TEMP 


Zll 


3128  663  I 

3129  663  I 

3130  663  ! 
.3131  663  : 

3132  663  ; 

3133  663  j 

3134  663  ; 

3135  663  i 

3136  663 

3137  663  ! 

3138  663 

3139  663 

3140  663 

3141  663 

3142  663 

3143  663  ; 

3144  663  ! 

3145  663 

3146  663 

3147  663 

3148  663 

3149  663 

3150  663 

3151  663 

3152  663 

3153  663 

3154  663 

3155  663 

3156  663 

3157  663 

3158  663  ; 

3159  663 

3160  663 

3161  663  j 

3162  663 

3163  663 

3164  663 

3165  663 

3166  663 

3167  663 

3168  663 

3169  663 

3170  663 

3171  663 

3172  663 

3173  663 

3174  663 

3175  663 

3176  663 

3177  663 

3178  663 

3179  663 

3180  663 

3181  663 

3182  663 

3183  663 

3184  663  : 


334  KTPRS=KTPRS+1 

TAVG= ( TWN+TEXI (N) )/2. 

VFACT=V I SCAV/V I  SC ( TAVG»GAS ) 

GO  TO  220 
♦CONVERGENCE  TEST 

336  I F { ABSF(TWN-VI1 ) -ACCTMP ) 420 » 420 » 350 
♦NOT  CONVERGED  -  IS  COUNTER  EXCEEDED 
350  IF(LIMPRS-KTPRS)352, 354*354 
♦EXCEEDED 

352  TW  ( N ) =TEXI ( N ) 

353  CALL  NETERRI 190»N) 

SENSE  LIGHT  2 

GO  TO  422 
♦NOT  EXCEEDED 

354  CONTINUE 

♦IS  JOB  BEING  PULLED  ON  TIME 

IF(SENSE  SWITCH  4)356*358 
356  CALL  NETERR ( 520 »N ) 

GO  TO  460 
♦NOT  PULLED 

358  IF(KTPRS -2)380*380*334 
♦NORMAL  CONTINUATION 

360  ENTRY=CONVEC ( N ) *C0N1* ( TWN-TEXI ( N ) ) 

CALL  FPRNT(5HENTRY* ENTRY »KTPRS* 1  * KCHK3 ) 
TESTD=SDELH-ENTRY 

CALL  FPRNT ( 5HTESTD*TESTD*KTPRS»1» KCHK3 ) 
♦TEST  FOR  BOUNDS 

IF(TESTD)368, 420*362 
♦HAS  POS  BOUND  BEEN  SET 
362  IF(TSTP)366*364*366 

♦SET  POS  BOUND 
364  TSTP=TESTD 
V I P=V  1 2 
GO  TO  374 
♦TEST  POS  BOUND 

366  IF (T5TP-TESTD) 374*374*364 
♦HAS  NEG  BOUND  BEEN  SET 
368  IF (TSTM) 372*370*372 
♦SET  NEG  BOUND 
370  TSTM=TESTD 
V I M=V 1 2 
GO  TO  374 
♦TEST  NEG  BOUND 

372  IF(TESTD“TSTM)374»374»370 

♦CAN  MAX-MI N  BE  ESTABLISHED 
374  I F ( T STP*T STM) 37 6* 37 8*376 
♦SET  MAX-MI N 

376  V I  MX =M AX IF ( VI P  » V IM ) 

VIMN=MIN1F(VIP»VIM) 

CALL  FPRNT(6HMAXMIN»VIMX»KTPRS»2*KCHK3 ) 
378  CONTINUE 

CALL  FPRNT (6HBND+/“»VIP*KTPRS»4*KCHK3 ) 

I FIKTPRS-3) 325 *382*402 
♦SECOND  ITERATION 
380  VD0=ENTRY 
VI 1=TWN 

\t  T  n  —  tWM 


3185  66! 

3186  66! 

3187  66: 

3188  66: 

3189  66: 

3190  66: 

3191  66: 

3192  66: 

3193  66 

3194  66 

3195  66 

3196  66 

3197  66 

3198  66 

3199  66 

3200  66 

3201  66 

3202  66 

3203  66 

3204  66 

3205  66 

3206  66 

3207  66 

3208  66 

3209  66 

3210  66 

3211  66 
3212  66 

3213  66 

3214  66 

3215  66 

3216  66 

3217  66 

3218  66 

3219  66 

3220  66 

3221  66 

3222  66 

3223  66 

3224  66 

3225  66 

3226  66 

3227  66 

3228  66 

3229  66 

3230  66 

3231  66 

3232  66 

3233  66 

3234  66 

3235  66 

3236  66 

3237  66 

3238  66 

3239  66 

3240  66 
3244  66 


3  /? 


GO  TO  334 
♦THIRD  ITERATION 

382  VD1=ENTRY 

CALL  EXTRAP ( 0,0 ♦ VIO  » VDO  *VI1*VD1»TWN»SDELH»2) 

383  VI 3=TWN 

♦HAVE  MAX-MIN  LIMITS  BEEN  SET 

384  I F ( VI MX*VIMN )386»394»386 
♦TEST  AGAINST  MAX-MIN  BOUNDS 

386  I F ( TWN-V IMN)390»390»388 
388  I F ( VI MX-TWN  >390*390,392 
♦DICHOTIMIZE 

390  TWN=(VlMX+VIMN5/2. 

♦RETURN  FOR  NEXT  PASS 
392  V I 2  =  TWN 

CALL  FPRNT(5HVI0-3»VI0, KTPRS  *4*  KCHK3 ) 

CALL  FPRNT ( 3HTWN »TWN*N»1» KCHK3 ) 

GO  TO  336 

♦TEST  AGAINST  GROSS  LIMITS 
394  IF(THI-TWN)396*396»398 
♦REDUCE 

396  TWN=»5*( THI+MAXIFl VI 0»VI 1 ) ) 

GO  TO  392 

398  IF (TWN-TLO)400j400,392 
♦INCREASE 

400  TWN  =  MlNlF(VI0,VU)/2. 

GO  TO  392 

♦FOURTH  AND  SUBSEQUENT  PASSES 
402  VD2=ENTRY 

CALL  FPRNT ( 5HVD0-2 » VDO , KTPRS , 3 » KCHK3 ) 

CALL  EXTRAP(VI0»VD0,VI1,VD1»VI2»VD2»TWN»SDELH,3) 

VIO=vll 
V I l=v 1 2 
VD0=VD1 
VD1=VD2 
GO  TO  383 

* 

♦NORMAL  CONVERGED  CONTINUATION 
420  TW ( N ) =TWN 

♦IS  JOB  BEING  PULLED  ON  TIME 
422  I F ( SENSE  SWITCH  4)356*425 
♦IS  THIS  LAST  STAGE 

425  I F ( ND— N ) 460,460*  440 
♦DELETE  3284-3285 
440  TAVG=TEXI (N+l ) 

450  TINI=TEXI (N) 

* 

♦FINISHED 

460  CONTINUE 
RETURN 
END  (0  » 1 » 0  ) 

♦♦♦♦♦♦♦♦♦****####**#^(.^. 
CUNCHKEOO  SR  TO  ALLEVIATE  CHOKES  FOR 
♦GFP  663  GENERAL  FLOW  PASSAGE 
♦SC  SKIRVIN 
* 

SUBROUTINE  UNCHKE 

*  aav 


I 

3242  663  ! 

3243  663 

3244  663 

3245  663 

3246  663 

3247  663 

3248  663 

3249  663 

3250  663 

3251  663 

3252  663 

3253  663 

3254  663 


3255 

663 

3256 

663 

3257 

66  3 

3258 

663 

3259 

663 

3260 

663  ; 

3261 

663 

3262 

663 

3263 

663 

3264 

663 

3265 

663  ; 

3266 

663 

3267 

663 

3268 

663 

3269 

663 

3270 

663 

3271 

663 

3272 

663 

3273 

663 

3274 

663 

3275 

663 

3276 

663 

32  77 

663 

32  78 

663 

3279 

663 

3280 

663 

3281 

663 

3282 

663 

3283 

663 

3284 

663 

3286 

663 

3287 

663 

3288 

663 

3289 

663  ' 

3290 

663 

3291 

663 

3292 

663 

3293 

663 

3294 

663 

3295 

663 

3296 

663 

3297 

663 

3298 

663 

5100 

t~c.  -a 

♦BEGIN  STORAGE  MAP 
♦GENERAL  USEAGE 
DIMENSION 
1AFFI  (100 
2CLSMDI ( 100 
3FTABI  (8 
4KPARAMC8 
5NCLOSS ( 1 00 
60LENI  (100 
7P2  (100 

8HEDDUM ( 12 


) » BSI 
)  »DHI 


(11 
( 100 


)  * FPARMI ( 8 
)  *KPARMR( 8 
)  »NCLSMD( 100 
)  »PHISUM( 100 
)  ,THICKD( 100 
)  »GMASS  (100 


) »BSO  (11 
) *DPARAM(8 
) »HTABI  (6 
) *NDH  (100 
)  »NRINGD( 100 
) »PHI EX  (100 
) » TEX  I  (100 
) »TW  (100 


) »CLOSSI ( 100 
) »DPARMI ( 8 
) »HMULTI ( 100 
)»NAFL  (100 
) *NHMULT( 100 
>*P0  (100 

) » XOLD  (100 
>,REYNO  (100 


) »CLSGEN ( 100  )* 
) »FMULTI { 100  ), 
) »KRSCON ( 4  ), 
) »NLEN  (100  ), 
) *NFMULT ( 100  ), 


)  »P1 
J  »BHIGH 
) »FR IC 


(100  ), 
(12  )  , 
(100  ), 


9CONVEC(100) ,DPINT(100),OMEXI ( 100 ) ,PRTGAS( 9 ) 


♦  BGO 


DIMENSION  PSEXI ( 100) , PDYEX I ( 100) ,PEXI (100) 
NON-SUBSCRIPTED,  BGl  SINGLE,  BG2  DOUBLE,  BG3  CLEANUP 

EQUIVALENCE 

HAD  ♦  BGO  ( 1 

)  ) 

, (ACCMNO,BGO(2 

)  ) 

, (ACCPRS,BG0(3 

)  ) 

2 ( ACCTMP , BGO ( 4 

)  ) 

♦ (ALLRUN, BG0(5 

)  ) 

» (AUTOLS,BGO(6 

)  ) 

3 ( BD  , BGO ( 7 

)  ) 

, (BLANKS, BG0(8 

)  ) 

, (BET  A1  , BGO ( 9 

)  ) 

4( BETA2  »BG0(10 

)  ) 

, ( Cl N  ,BG0(11 

)  ) 

, ( CEX  »BGO ( 12 

)  ) 

5 (DEAD  ♦ BGO ( 13 

)  } 

, ( DELH  , BGO (14 

)  ) 

, ( DER I V  »BGO ( 15 

)  ) 

6 ( ENTRN  , BGO (16 

)  ) 

, ( ENTRNC, BGO ( 17 

)  ) 

»(FD  , BGO ( 18 

)  ) 

7 ( FT  IN  , BGO ( 19 

>  ) 

»(FTOUT  , BGO ( 20 

)  ) 

, (FSTPAR,BG0(21 

)  ) 

8 ( GOAL  , BGO ( 22 

)  ) 

, ( GAS  » BGO ( 23 

)  ) 

, (HIN  »BGO ( 24 

)  ) 

9 ( I  TRY  , BGO ( 25 

)  ) 

, (KTRCRD»BG0(26 

)  ) 

, (KALCNO,BGO(27 

)  ) 

EQUIVALENCE 

1(KTCHAD»BG0(28 

)  ) 

, (KTWADJ,BG0(29 

)  ) 

, (KTCHTO,BG0(30 

)  ) 

9 

2 ( KPOw  9  BGO ( 31 

)  ) 

, ( KOPT  , BGO ( 32 

)  ) 

, ( KOSCI L  »BGO ( 33 

>  ) 

9 

3(KCHOKE,BGO(34 

)  ) 

, ( KASE  , BGO (35 

)  ) 

, (KASTEP,BG0(36 

)  ) 

4 ( LOC  , BGO ( 37 

)  ) 

, ( LIMCHK, BGO ( 38 

)  ) 

, ( LMCHTO,BGO( 39 

)  » 

5(LIMTRY,BG0(40 

)  ) 

, (MORCAS,BGO(41 

)  ) 

, (NSKPPR,BG0(42 

)  ) 

6(NSKPHT»BG0(43 

)  ) 

, ( NT  , BGO (44 

)  ) 

, ( NHOT  » BGO (45 

)  ) 

7 ( NOPRT  » BGO (46 

)  ) 

, ( NOSTGE , BGO ( 47 

)  ) 

, (PARPRT  »BG0(48 

>  ) 

8(PRTSUM»BG0(49 

)  ) 

, (RNKIN  , BGO ( 50 

)  ) 

, ( RNKOUT , BGO ( 5 1 

)  ) 

9 ( SVACMN , BGO ( 52 

)  ) 

, ( SVACPR  »  BGO ( 53 

)  ) 

, (TOTLND»BGO(54 

)  ) 

EQUIVALENCE 

HTRYO  »BGO  ( 55 

)  ) 

, ( TRY1  »BGO ( 56 

)  ) 

,  ( TRY2  , BGO (57 

)  ) 

21TRY3  »BGO ( 58 

)  ) 

, ( TEST1  , BGO ( 59 

)  ) 

» (TOTLEN,BG0(60 

)  ) 

3 ( WH I  ,BGO { 61 

)  ) 

,  ( WLO  , BGO ( 62 

)  ) 

,  (YIELD0,BG0(63 

)  ) 

4(YIELD1»BG0<64 

)  ) 

,  (YIELD2,BG0(65 

)  ) 

, (N0INPT,BG0(66 

)  ) 

5 ( L I MPRS , BGO ( 67 

)  ) 

,  (PRTALL,BG0(68 

)  ) 

, (OMAXD  » BGO (69 

)  ) 

6 ( OMAX  »  BGO ( 70 ) ) * (0MAX1 * BGO ( 71 ) ) » ( KOPTH ,BGO ( 72 ) ) » 

7  ( DMCONV»BGO ( 75) 5  »(KDI»BG0(76) ) »( KDD  »BGO ( 77 )  )  »  ( TRYMAX  »BGO ( 

878) ) » (MAXTMP,BG0(79) ) » ( LMBULK »BGO ( 80 ) ) » ! TBBULK  »BGO (81) ) , 

9 ( KCHK1»BG0( 1) ) , ( KCHK2  »BGO ( 7 ) ) , ( KCHK3 » BGO ( 18 ) ) ♦ ( KGAS  »BGO ( 82 ) ) 
EQUIVALENCE (PDYIN,BGO( 73) ) »( PDYEX  » BGO ( 74 ) ) , ( OM I NLT » BGO ( 83 ) ) » 

1 ( OMEX IT » BGO ( 84 ) ) * ( DP  I N, BGO ( 8  5 ) ) » ( DPEX ,BGO< 86 ) ) 

2 » ( TRANSF  »  BGO ( 87 ) ) » ( TRANHL  »BGO ( 88 )  )  » ( TRANHU»BGO( 89 ) ) 
3»<NEWSET»BG0(90 ) ) » ( KTPAR  »BGO ( 91 ) ) » ( KTOTPR ♦ BGO ( 92 ) ) » (QBAR»BGO( 93 ) ) » 
4 ( QOQBAR » BGO ( 94 ) ) * ( NOGEOM *  BGO ( 95 ) ) 

EQUIVALENCE 

1(AFFD  »BG1(2  )),(AFFI  ,601(102  ))» 

2 ( BSO  »BG1 ( 213  )),(BHIGH  ,661(224  )), 

3 ( CLSGEN , BGl ( 337  ) ) ♦ (CLSMDI ,BG1 (438  )), 

4 ( DH I  ,BG1(639  ) ) , ( DPARAM , BGl ( 739  )), 

5 ( FTABI  ,BGl ( 755  )),( FPARMI , BGl ( 759  )), 

6 ( GMASS  , BG 1(868  )),(HTABI  , BGl (968  ft)  , 

7(  HMULTI  » BGl  (987  ) > , < KPARAM » BGl < 1 087  )  )  , 


(BSI  »BG1 ( 202 
(CLOSSI,BG 1(237 
(DHD  , BGl ( 539 
(DPARMI , BGl (747 
(FMULTI ,BG1 (768 
(HEDDUM,BG1 (974 
( K P ARMR , BGl (1095 


)  ) 

)  ) 

)  ) 

)  ) 

)  ) 

)  ) 

)  )•  * 


3300  663 

3301  662 

3302  662 

3303  663 

3304  663 

3305  663 

3306  663 

3307  663 

3308  663 

3309  663 

3310  663 

3311  663 

3312  663 

3313  663 

3314  663 

3315  663 

3316  663 

3317  663 

3318  663 

3319  663 

3320  663 

3321  663 

3322  663 

3323  663 

3324  663 

3325  663 

3326  663 

3327  663 

3328  663 

3329  663 

3330  663 

3331  663 

3332  663 

3333  663 

3334  663 

3335  663 

3336  663 

3337  663 

3338  663 

3339  663 

3340  663 

3341  663 

3342  663 

3343  663 

3344  663 

3345  663 

3346  663 

3347  663 

3348  663 

3349  663 

3350  663 

3351  663 

3352  663 

3353  663 

3354  663 

3355  663 

3356  663 


8 ( KRSCON » BG1 ( 1103 
9 ( NLEN  ♦ BG1 ( 1307 
EQUIVALENCE 
1 (NHMULT*BG1( 1607 
2COLENI  *  BG1 ( 1908 
3(P0  '  » BG1 ( 2208 

4(TEXI  »BG1 ( 2508 
5 ( XOL  »BG1 ( 2808 


)  )  » ( NDH  *  BG1 ( 1107  )) 
)  )  ,  (NCLOSS*BG1(1407  )) 


» ( NAFL  »BG1 ( 1207  ) ) * 
»  (NCLSMD,BG1(-1507  )) 


)) ♦ (NFMULT»BG1 ( 1707  ) ) » (OLEND  »BG1(1808  ))* 

) )  ,  (PHISUM»BG1 ( 2008  )),(PHIEX  »BG1(2108  ))» 

)),(Pl  »BG1 ( 2308  )),(P2  »  BG 1(2408  ))» 

))»<TW  » BG1 ( 2608  ) ) » (XOLD  »BG1(2708  ))» 

) ) » ( REYNO  » BG1 (2908  ))*(FRIC  »BG1(3008  ))» 

6 ( CONVEC*  8G1 (3108 ) ) * (DPINT»BG 1(3208 ) ) * ( OMEX I* BG 1(3308)  ) 

7» (PRTGASsBG 1(3408) ) » ( PSEXI »BG1 ( 3417 ) ) , (PDYEXI *BG1(3517) ) 

*OPEN  AT  3617*  KEEP  OPEN  UNTIL  3700 

DIMENSION  KONOPT ( 2 ♦ 10 ) »K0NPAR(4»13 ) *SAVTAB( 13 » 100) >KSVTAB ( 13 » 100 ) 

EQUIVALENCE ( KONOPT » KUP*  BG2 ) ♦ ( KONPAR » BG2 ( 21 ) ) » 

1 ( SAVTABs  KSVT AB»  BG2 ( 73 ) ) 

*OPEN  1373 

EQUIVALENCE (THICKD»BG3(2) ) » ( NRI NGD»  BG3 ( 103)  ) » (PEXI »BG3(203) ) 

* 

EQUIVALENCE(COFFLM»FTABI ) » (EXPFLM»FTABI (2 )  ) » ( COFFTB » 

IF TAB I (3) ) »(EXPFTB»FTABI (4) ) 

* 

*BAS  I C  OPTIONAL  VARIABLES 

DIMENSION  GRTMPI (3) »GRTMPO(3) 

EQUIVALENCE ( PIN* BSI ) » ( TI N*BS I ( 2 ) ) » ( TEX*BSI (3 ) ) * ( TWMAX » 

IBS  I (4) ) » (PSEX,BSI (5)  ) » (PEX*BSI (6) ) » ( W » BSI ( 7 )  )  » (QTOT  » 

2BS  1(8) ) » ( P I ND » BSO ) » ( TIND*BSO(2) ) » ( TEXD»  BSO ( 3 ) ) » ( TWMAXD » 

3BSO ( 4  5 ) ♦ (PSEXD»BSO(5 ) ) » (PEXD»BSO(6 ) ) , (WD»BSO(7) ) ♦ ( QTOTD » 

4BS0 ( 8 ) ) » (PSXOPI ,BSI (9) ) , (PTXOPI ,BSI (10) ) » (TEXOTI » BSI (11))* 

5 ( PSP  ID*  BSO ( 9 ) ) » (PTPID.BSOJ 10) ) » (TXTID»BSO( 11 ) ) * 

6CGRTMPI »BSI (2) ) » ( GRTMPO »BSO ( 2 ) ) 

■fcr 

EQUIVALENCE(COFHLM»HTABI ) * ( EXHPLM*HTABI (2) )*(EXHRLM» 

1HTABI ( 3) ) » (COFHTB»HTABI (4) ) » ( EXHPTB  »HTABI ( 5) ) » ( EXHRTB  * 

2HTABI (6) ) 

EQUIVALENCE ( DPT  I N » DP ARAM ) » ( DTT I N* DP ARAM ( 2 )  ) » ( DTTEX  »  DP ARAM ( 3 ) ) » 

1 <  DTWMAX * DPARAM ( 4) ) » ( DPSEX » DPARAM ( 5 ) ) » ( DPT EX » DPARAM ( 6 ) ) » (DW»DPARAM( 
27 ) ) » ( DQTOT ♦ DPARAM (8 ) ) » ( NOPTIN»KPARAM) » 

3 ( NOTTIN » KPARAM ( 2 ) ) » ( NOT TEX  » KPARAM ( 3 ) ) » ( NOTWMX  >NTWMAX  » NO TWA* 

4KP ARAM ( 4 ) ) » ( NOPSEX * KPARAM ( 5 ) ) » ( NOP TEX ♦ KPARAM ( 6 ) ) * ( NOW » KPARAM ( 7 ) ) » 

5 ( NOQTOT » KPARAM ( 8  5 ) 


* 

* 


* 

* 


*  master  grouping 

DIMENSION  BGO(IOO) »BG1(3700) »BG2( 1372) »BG3(302) » 

1BG ( 5474 ) 

EQU I  VALENCE ( BG0»BG> » ( BG1 » BG ! 10 1 ) ) » ( BG2»BG( 3801 )) » ( BG3  »BG( 5173 ) ) 
COMMON  BG 

*  END  OF  MASTER  GROUPING 

EQUIVALENCE ( KCHK11»KCHK2) 

OF  STORAGE  MAP 


*END 
* 

KDI=<DI 

*IS  THIS  ENTRY  FOR  CHOKE  OR 
I F ( KCHOKE )90»200»9G 
90  CONTINUE 

*HAS  THE  CHOKE  LIMIT  BEEN  EXCEEDED 
I F(LIMCHK-KTCHAD) 100*100*110 
*HAS  THIS  CHOKE  LIMIT  BEEN  PREVIOUSLY 


FOR  YIELD  I MPROVEMNT 


EXCEEDED 


222 


3357 

3358 

3359 

3360 

3361 

3362 

3363 

3364 

3365 

3366 

3367 

3368 

3369 

3370 

3371 

3372 

3373 

3374 

3375 

3376 

3377 

3378 

3379 

3380 

3381 

3382 

3383 

3384 

3385 

3386 

3387 

3388 

3389 

3390 

3391 

3392 

3393 

3394 

3395 

3396 

3397 

3398 

3399 

3400 

3401 

3402 

3403 

3404 

3405 

3406 

3407 

3408 

3409 

3410 

3411 

3412 

3413 


663 

663 

663 

663  j 

663  i 

663 

663  ■ 

663  ! 

663  ! 

663  i 

663  t 

663  1 

663  | 

663  i 

663  ! 

663  ; 

663  : 

663 

663 

663 

663 

663  ! 

663 

663  ! 

663 

663 

663 

663 

663 

663 

663  | 

663 

663  ! 

663 

663 

66  3 

66  3 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663 

663  ; 

663  ' 

663 

663 

663 

663  , 


100  I F ( SENSE  LIGHT  2)105*106 

105  SENSE  LIGHT  2 
GO  TO  300 

♦EXCEEDED 

106  CALL  NETERR ( 160 » 4 ) 

SENSE  LIGHT  2 

GO  TO  300 
♦CONTINUE 

110  KTWTRY=0 
KWTTOT  =  0 

IF(TRYMAX)114»114»112 
112  WHI=MIN1F(WHI »TRYMAX) 

114  IF(KDI-1 >120,116,120 
116  WL0=MAX1F(WL0»BS0(KDI ) ) 

GO  TO  150 

120  WHI=MIN1F(WHI ,BSO(KDI ) ) 

* 

150  ktchad=ktchad+i 
160  CONTINUE 

0MTRY=MIN1F ( .9*0MINLT».5*0MAX1 ) 

K2=KCHOKE 

IF(K2-1)170»170»180 
170  TD=TIND 
PD=PIND 
GO  TO  190 
180  TD=TEXI (K2-1) 

PD=PEXI ( K2-1 ) 

190  CONTINUE 

CALL  FPRNT ( 6HCHKVAL  »BSO ( KDI ) ,KCHOKE,l »KCHK11 ) 
AFF1=AFFI ( K2 ) 

I F ( KDI  — 1 ) 194 » 192 » 194 
192  P I ND=PRSFUN ( AFF1 *WD  *  TD»OMTRY  »GAS ) 

GO  TO  196 

♦FLOW  FUNCTION  AT  M=0.1 

194  WD=FLWFUN( AFFl,PD»TD»OMTRY»GAS) 

196  CONTINUE 

CALL  FPRNT ( 6HNEWFLO »  BSO { KDI ) »KCHOKE , 1 , KCHK1 1 ) 

200  CONTINUE 

I F ( BSO ( KDI )-WLO)202»202»201 

201  IE(WHI-BSO(KDI ) )202, 202*205 

202  BSO(KDI)=(WHI+WLO)/2. 

205  IF( KDI- 1)206*214*206 
♦SETUP  FOR  NEW  WEIGHT  FLOW 

206  DO  208  M=1 *5 
IF(K0PT-2*M+1) 208 *210*208 

208  CONTINUE 
♦TEXD  USER  SPECIFIED 
GO  TO  212 

♦QTOTD  USER-SPECIFIED 

210  TEXD=TMPENT(QTOTD/WD+HIN*GAS»-l ) 

212  DELH=TMPENT<TEXD.GAS»1)-HIN 
DO  213  N=l»NOSTGE 
GMASS(N)=WD/AFFI (N) 

TEX I ( N ) =TMPENT ( PH I SUM ( N ) *DELH+H IN»GAS»-1 ) 

213  CONTINUE 

214  CONTINUE 

CALL  FPRNT  (  6HNEWFLO  *BSO(KDI)  *KTWTRY.1.KCHK"M  i 
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3417  663 
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3420  663 
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3423  663 
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3425  663 

3426  663 

3427  663 

3428  663 

3429  663 
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3432  663 

3433  663 

3434  663 

3435  663 

3436  663 

3437  663 

3438  663 

3439  663 

3440  663 

3441  663 

3442  663 

3443  663 

3444  663 

3445  663 

3446  663 

3447  663 

3448  663 

3449  663 

3450  663 

3451  663 

3452  663 

3453  663 

3454  663 

3455  663 

3456  663 

3457  663 

3458  663 
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3462  663 
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3468  663 

3469  663 


o.  /.  "7  A  n 


KTWTRY=KTWT RY+1 
CALL  OPFRLT(O) 

♦DID  CHOKE  OCCUR 

IF(KCHOKE)250»250,215 
♦CHOKE  OCCURRED 

215  IF(KDI-1)218»216»218 

216  WLO=MAXlF(WLO»BSO(KDI ) ) 

GO  TO  219 

218  WHI =3S0 ( KDI ) 

219  KTCHAD=KTCHAD+1 

♦IS  LIMIT  EXCEEDED  FOR  SINGLE  TRY 
IF (LIMCHK-KTCHAD) 106*220*220 

220  IFC  KOI  — 1 >230*160*230 
♦DID  CHOKE  MOVE  DOWNSTREAM 

230  I F ( KCHOKE-K2 )200»200,160 
♦NO  CHOKE 

250  IF (KDI~1 )251 *260*251 

251  WLO=MAX1F(WLO»BSO(KDI )) 

♦IS  MAX  MACH  NO  MORE  THAN  OMAX1 

CALL  FPRNT ( 6HMAXMNO  »OMAX » KTWTRY  > 1 »KCHK11 ) 
■♦ADJUST  TO  HIGHER  FLOW  IF  MACH  NO  NOT  ABOVE  OMAX1 

255  IF (OMAX1—OM AX >270*256*256 

♦DO  WHI  AND  WLO  DIFFER  BY  MORE  THAN  1  PART  IN  10-5 

256  IF(ABSF( (WHI -WLO) /WHI )-l.E-5 ) 270,270,257 
♦HAVE  5  TRIES  BEEN  MADE  WITH  OMAX1 

257  I F ( 5  KTWTRY)258*258»200 
♦DECREASE  OMAX1 

258  OMAXl=.8*OMAXl 
KWTTOT =KWTT0T+K7WTRY 
KTWTRY=0 

CALL  FPRNT ( 6HNEWMAX  »0MAX1 , KWTTOT, 1 »KCHK11 ) 

GO  TO  255 

♦UPDATE  WHI  FOR  PRESSURE 

260  WHI=MIN1F(WHI ,BSO(KDI ) ) 

♦FINISHED 

270  KCHOKE=0 
300  CONTINUE 
RETURN 
END( 0 » 0 »  0 ) 
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3493 
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3494 
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3495 
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3496 
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3497 

663 

3498 
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3508 
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663 
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*********************** 
♦3AM-D  CP/CV 

*  AIR(1)(APEX  527),  H2(4)(DC  61-1-47),  NEON ( DC  58  6-205) 

*  HELIUM(HE)  APPROXIMATED  FROM  GE  DESIGN  DATA, G513. 1,7/31/58 

FUNCTION  GAM (TD, GAS) 

DIMENSION  TMPLOW (4) »TMPHI (4) »A(6»4) , TITLE! 1) »COFAIR(6) , 

1COFH2 ( 6 ) ,COFN ( 6 ) »COFHE ( 6 ) 

EQUIVALENCE (COFA I R,A) , (COFH2,A(7) ) , (COFN,A(13) ) , (COFHE,A( 19) ) 
TABLE  TMPLOW<500.*180.,0.,0.) ,TMPHI ( 2900. ,4400. , 1 .+20 ,1 .+20 ) 
TABLE 

1COFAIRC 1.3817485 ,1. 05 02408E-04, -1.62930 16E-07, 6. 5723018E-11, 
2-8.6452813E-15,0. ) 

3»COFH2( 1.44, -.03545 E-03,0.,0.,0.,0. ) 

4,  COFN ( 1.651 ,0. ,0. ,0. ,0. ,0. ) 

5 ,  COFHE ( 1.667 ,0. ,0.,0. ,0. ,0. ) 

6,  T I TLE ( 3HGAM ) 
exceed=o. 

KGAS=GAS 

KGAST=KGAS 

T  =  TD 

GO  TO  (100,10,10,400,10,600,10,10,900) ,KGAS 
10  CALL  NOPROP ( T  I  TLE  »KGAS ) 

♦AIR 

100  KGASD=1 
KGAST= 1 
GO  TO  2000 

*H2 

400  KGASD=2 

GO  TO  2000 

♦HE 

600  KGASD=4 

GO  TO  2000 

♦NEON 

900  KGASD=3 

♦check  limits 

2000  I F ( T  TMPLOW(KGASD))2005, 2020*2010 
2005  T  =TMPLOW ( KGASD ) 

GO  TO  2016 

2010  IFfTMPHI (KGASD)-T)2015, 2020, 2020 

2015  T=TMPHI (KGASD) 

2016  EXCEED=1. 

2020  GAM= 

1  A ( 1 , KGASD ) +T* ( A ( 2 , KGASD ) +T* ( A ( 3 , KGASD ) +T* ( A (4 , KGASD ) 

2+T*(A(5, KGASD)  T*A ( 6 , KGASD > ) ) ) ) 

♦WAS  TEMP  LIMIT  EXCEEDED 
3000  IF(EXCEED)3010, 3020, 3010 

3010  CALL  LMPROP ( T I TLE, TMPLOW ( KGASD ) , TMPHI ( KGASD ) *  TD, KGAST ) 
♦FINISHED 
3020  CONTINUE 
RETURN 
END ( 0 , 1 »  0 ) 

*****  ****************** 
♦LMPROP  SR  JO,  PR  I  NT  COMMENT  WHEN  TEMP  LIMITS1  FOR  \ 
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3515  663 

3516  663 

3517  663 

3518  663 

3519  663 

3520  663 

3521  663 

3522  663 

3523  663 

3524  663 

3525  663 

3526  663 

3527  663 

3528  663 

3529  663 

3530  663 

3531  663 

3532  663 

3533  663 

3534  663 

3535  663 

3536  663 

3537  663 

3538  663 

3539  663 

3540  663 

3541  663 

3542  663 

3543  663 

3544  663 

3545  663 

3546  663 

3547  663 

3548  663 

3549  663 

3550  663 

3551  663 

3552  663 

3553  663 

3554  663 

3555  663 

3556  663 

3557  663 

3558  663 

3559  663 

3560  663 

♦  3561  663 
!  1  3562  663 


*  FOR  PROPERTY  FUNCTIONS  ARE  EXCEEDED  3563 

*USEAGE  -  CALL  LMPROP ( NAME (HOLLERITH ) »TLOW»THIGH*T  TRIED*  3564 

*  KGAS ) ■  3565 

*  SC  SKIRVIN  3566 

»  3567 

SUBROUTINE  LMPROP ( NAME* TLOW »THI GH ♦ TRI ED , KGAS )  3568 

it  3569 

DIMENSION  PRTGSL ( 9 )  3570 

TABLE  PRTGSL ( 54HAIR  N2  C02  H2  02  HE  ARGON  FREON  NE3571 

ION  )  3572 

WRITE  OUTPUT  TAPE  3 » 32000, NAME » PRTGSL ( KGAS ) ,  3573 

IT LOW  »  THI GH  »  TR I  ED  3574 

*LMPR0P  3575 

32000  FORMAT  3576 

SPACE  3577 

******  3578 

*-X  -A  TMP-LIMITS  FOR-X  -A  ARE  -F0  AND  -F0  (DEG  R)  3579 

*  t=  -F0  WAS  TRIED*  BUT  NEAREST  LIMIT  TEMP  WAS  USED.  3580 

******  3581 

SPACE  3582 

END  OF  FORMAT  3583 

RETURN  3584 

END ( 0  *  1 »  0 )  3585 

************************  3586 

*NOPROP  A  SR  FOR  PRINTOUT  REGARDING  MISSING  3587 

*  GAS  PROPERTIES  3588 

*USEAGE  -  CALL  NOPROP ( HOLLER  I TH ( MAX  6  CHAR AC ) »KGAS ( F IXED  3589 

*  POINT))  3590 

*  3591 

SUBROUTINE  NOPROP ( COM*KGAS )  3592 

TABLE  PRTGSL ( 54HA IR  N2  C02  H2  02  HE  ARGON  FREON  NE3593 

ION  )  3594 

DIMENSION  PRTGSL ( 9 )  3595 

WRITE  OUTPUT  TAPE  3  *  32000 » COM »PRTGSL ( KGAS ) *KGAS  3596 

32000  FORMAT  3597 

SPACE  2  3598 

*  *  *  *  *  *  *  3599 

*GAS  PROPERTY-X  -A  NOT  PRESENT  FOR-X  -A (NO  -I).  AIR  VALUE  ASSUMED3600 
*******  3601 

END  OF  FORMAT  3602 

*  3603 

RETURN  3604 

END (0*1*0)  3605 

*PRN— D  PRANDTL  NO  3606 

*AI R ( 1 ) (APFX  527) »NEON(9) (DC  58-6-205 ) *H2 (4 )( DC  61  1-47)  3607 

*  HELIUM(HE)  APPROXIMATED  FROM  GE  DESIGN  DATA*G513. 1*7/31/58  3608 

FUNCTION  PRN(TD»GAS)  3609 

DIMENSION  TMPL0W-I41  »TMPHI  (4)  ♦  A  (  6 ,4  )  *  T I  TLE  (  1 )  »C0FAIR(6)  »  3610 

1C0FH2 ( 6 ) » COFN ( 6 ) »COFHE ( 6 )  3611 

EQUIVALENCE (COFAIR»A) » (COFH2*A(7) ) »( COFN, A (13) ) ♦ (COFHE»A( 19 ) )  3612 

TABLE  TMPLOWI400. *18  0. *460. ,860. ) »TMPHI ( 2400 • * 3600. » 2800. » 1 .+20 ) »  3613 
1COFAIR(9«970762E-1 *—9.6446 IE— 4 *  1 • 042408E-6 »— 4. 920634E— 10  *  3614 

21.046379E-13*— 7.659388E-18 )  3615 

3»COFH2(9.361730E— 1,-6.592753E -4 *4.622303 E-7*  8.246998E  11*  3616 

44.312456E— 16*0. )  3617 

5* COFN ( 1.2 77 3»1.8416E-3, 2.1338 E-6, -1.1991 E-9»3.2599E— 13*  3618 

6— 3.4314E-17)  *  . 2  3  L  '  *  * "  3619 
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7C0FHE ( •72>0.,0.»0.*0«»0.)»TITLE( 3HPRN ) 
exceed=o. 

KGAS=GAS 

kgast=kgas 

T  =  TD 

GO  TO  (100»10»10,400»10, 600*10*10*900) »KGAS 
10  CALL  NOPROP (TITLE, KG AS) 

♦AIR 

100  KGASD=1 
KGAST=1 
GO  TO  2000 

*H2 

400  KGASD=2 

GO  TO  2000 

*HE 

600  KGASD=4 

GO  TO  2000 

*NEON 

900  KGAS0=3 
♦CHECK.  LIMITS 

2000  IFCT  TMPLOW( KGASD) 5 2005 >2020,2010 
2005  T  =  TMPLOW ( KGASD ) 

GO  TO  2016 

2010  IFITMPHI (KGASD )“T 12015,2020 » 2020 

2015  T=TMPH I ( KGASD ) 

2016  EXCEED- 1 • 

2020  PRN= 

1  A ( 1 » KGASD ) +T*( A ( 2 » KGASD )  +T* ( A ( 3 » KGASD ) +T* ( A ( 4 » KGASD ) 

2+T*(A(5, KGASD)  T*A ( 6 » KGASD ) ) )) ) 

♦WAS  TEMP  LIMIT  EXCEEDED 
3000  IF(EXCEED)3010, 3020, 3010 

3010  CALL  LMPROP (TITLE, TMPLOW ( KGASD ) , TMPH I (KGASD) »TD»KGAST ) 
♦FINISHED 
3020  CONTINUE 
RETURN 
END ( 0  » 1 » 0 ) 

****'**♦*******■******** 
CR  USEAGE  R ( NUMBER  INDICATES  THE  GAS) 

FUNCTION  R ( GAS ) 

NGASsGAS 

GO  TO(l,2»3»4, 5,6,7, 8»9)»NGAS 
C3AS  =1 , AIR 

1  R=53.35 
GO  TO  100 

CGAS  =2  »N I TROGEN ( 2 ) 

2  R  =  55 ® 1 12 
GO  TO  100 

CGAS  =3  » CARBON  DIOXIDE 

3  R  =  35  » 082 
GO  TO  100 

CGAS  =4 » HYDROGEN ( 2 ) 

4  R=765.873 
GO  TO  100 


CGAS  =5 , OXYGEN ( 2 ) 
5  R=48.25 
GO  TO  100 


rfiifi  cft.NFl  HIM  - 
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3620  663 

3621  663 

3622  663 
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3625  663 
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3627  663 

3628  663 

3629  663 

3630  663 

3631  663 

3632  663 

3633  663 

3634  663 

3635  663 

3636  663 

3637  663 

3638  663 

3639  663 

3640  663 
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3642  663 

3643  663 

3644  663 

3645  663 

3646  663 

3647  663 

3648  663 

3649  663 

3650  663 

3651  663 

3652  663 

3653  663 

3654  663 

3655  663 

*  3656  663 

3657  663 

3658  663 

3659  663 

3660  663 

3661  663 

3662  663 

3663  663 

3664  663 

3665  663 

3666  663 

3667  663 

3668  663 

3669  663 

3670  663 

3671  663 

3672  663 

3673  663 

3674  663 

.  3675  663 

3676  663 


6  R=385«711 
GO  TO  100 

IGAS  =7, ARGON 

7  R=38»654 
GO  TO  100 

:gas  =8 » freon 

8  R  =  15 c  1484- 
GO  TO  100 

‘'NEON 

9  R  =  76  ®  6 
100  RETURN 

END ( 0  s 1 9 0  5 

fr  **  **■**■*•****  •#•'*#■*■*■***  *■#■*# 

«-TC“D 

«•  AIR{1){APEX  5275s,  H2(4HDC  61-1-47),  NEON  ( DC  58  6-205) 

*  HELIUM(HE)  APPROXIMATED  FROM  GE  DESIGN  DATA, G5 13 . 1 , 7/31 /58 
FUNCTION  TC(TD,GA$) 

DIMENSION  TMP[_0W(4)  »TMPHI  (4)  »A(6*4)  ,TITLE(  1 )  , COFAIR  (6  )  , 

1COFH2C6) *COFN ( 6 ) »C0FHE(6) 

EQUIVALENCE (COFAIR, A) ,(C0FH2,A(7) ) , (COFN,AC13) ) ♦ (COFHE*A( 19) ) 
TABLE  TMPLOW( 100, ,180. ,460. ,660. ) ,TMPHI (3800. ,3600. ,2800. ,1760. ) 
TABLE 

1 COFAIR ( — 2.6073866E— 08,8. 3542893E-10»-2.970625E-13»8.7701180E-17 , 
2-14.653178E-21, 10.162822E-25 ) 

3  »  COFH2 ( 1 .750883 3 E- 07,4.9717133 E— 09 ,-7 .9260066E-1 3 ,-4. 7760366E-16 , 
41. 56879 25E-19,  4.6325091E-24 ) 

5»COFn(-2.9599169E— 07,2.421E-09,1.902E— 12»9.9E— 16,— 2.6303335E-19, 
62. 7486666 7E-23) 

7 , COFHE ( lei3E— 06,1 . 77E— 09 ,0. » 0  •  » 0  • ,0. ) 

8  » T  I  Ti_E(  2HTC) 
exceed=o. 

KGAS=GAS 
KGAST=KGAS 
T  =  TD 


GO  TO  (100,10,109400,10,600,10,10,900) ,KGAS 
10  CALL  NOPROP ( T I TLE , KGAS ) 

•AIR 

100  KGASD=1 
KGAST=1 
GO  TO  2000 
H2 

400  KGASD=2 

GO  TO  2000 
HE 

600  <6450=4 

GO  TO  2000 

NEON  -  - 

900  <GASD=3 
CHECK  LIMITS 

2000  I F ( T  TMPLOW(KGASD) )2005,2020,2010 
2005  T=  TMPLOW S  KGASD ) 

GO  TO  2016 

2010  IFfTMPHI (KGASD)-T)2015, 2020, 2020 
2015  T=TMPHI (KGASD) 


2016  EXCEED=1. 
2020  TC= 


13$ 
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3711  663 

3712  663 

3713  663 

3714  663 

3715  663 

3716  663 

3717  663 

3718  663 

3719  663 

3720  663 

3721  663 

3722  663 

3723  663 

3724  663 

3725  663 
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3727  663 

3728  663 
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3730  663 

3731  663 

3732  663 
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1  A  ( 1  * KGASD ) +T*( A ( 2  * KGASD )  +T*( A  <  3* KGASD )  +T* ( A ( 4  »KGASD ) 

2+T*(A(5»KGASD)  T*A ( 6  * KGASD ) ) ) ) ) 

*WAS  TEMP  LIMIT  EXCEEDED 
3000  IF(EXCEED)3010*3020,3010 

3010  CALL  LMPROP ( T I TLE »TMPLOW ( KGASD ) *TMPHI (KGASD ) » TD»KGAST ) 

♦FINISHED 
3020  CONTINUE 
RETURN 
END ( 0,1*0) 

***  *  ******************** 
CTMPENT-A  FUNCTION  TO  CALC  ENTHALPY  FROM  TEMP  OR 

*  TEMP  FROM  ENTHALPY 

*AIR( 1) » N2 ( 2 ) »C02 ( 3 ) *H2 ( 4 ) *02 ( 5 ) ,HE ( 6 ) *ARG0N(7) *  FREON ( 8 ) *NEON ( 9 ) 

*AI R  -  BASED  ON  ANPD  AIR  PROPERTIES  DATA  BOOKIAPEX  ) 

*H2  BASED  ON  NASA  DAT  A ( KI NG  TN  D-275,  441  PSIA) 

*  HELIUM(HE)  APPROXIMATED  FROM  GE  DESIGN  DATA*G513. 1*7/31/58 

*  SC  skirvin 

*USEAGE  -  FUNCTION  TMPENT ( TEMP  OR  ENTHALPY *GAS  SELECTOR* 

*  MODE)  -  (GAS ^SELECTOR  IS  FLOATING  POINT) 

*  MODE=  1  MEANS  ENTHALPY  FROM  TEMP*  MODE=-l  MEANS 

*  TEMP  FROM  ENTHALPY  (TEMPS  IN  DEG  R) 

* 

FUNCTION  TMPENT ( VD » GAS  *  MODE ) 

* 

TABLE  ATGR ( 

10. ,.240176 *-8.0 05646=6  *  1.192176-8*  2. 91701 6-12 ,2 . 340 132-16 *0 . * 0 . * 
20.»0«»0.*0.»0.»0.»0.»0.* 

30. *0. *  0  .  *  0  • *0. *0. *0. *0. * 

459938. *4460.08  3 *-1657.-6 , 904.55-9 *-190 .42-12 , 14. 38 1-15 » 0. ,0 . » 


50. 

*0. 

,0 

•  *  0  • 

*  0 » 

,0. 

9  0  • 

*0. 

9 

60. 

»o. 

,0 

•  9  0  • 

*0. 

,0. 

90. 

9  0  • 

9 

70. 

*  0. 

9  0 

•  9  0  • 

*0. 

*  0  . 

90. 

»0. 

9 

80. 

*0. 

9  0 

»  9  0  ft 

,0. 

9  0  • 

9  0  • 

»  0  • 

9 

9-5 

.39 

*  • 

2484 

*  0. 

9  0  • 

9  0# 

*0. 

9  0  •  9  0  •  ) 

TABLE  CTDGR ( 

1-1.6011292-5*3.576528-8*  1.1668064  11  *  1 . 170066-15 ♦ 0 .» 0 . 

20.90. ,0. »0.»0.*0.» 

30.,0.*0.»0»»0.»0.» 

4-3314.-6 * 2713. 65-9,-761.68-12 *7 1.905-15*0. *0.  , 

50. *0. *0. *0. *0. *0. 9 
60.»0.»0.»0.»0.»0.» 

70.,0»*0.*0.*0,»0.* 

80.»0.»0.*0.*0.»0.» 

90«*0.*0. *0**0. *0*5 
TABLE  AHGR ( 

10. ,4.183639  * 4. 440606-4, -3. 28458 3-6 *3. 74104-9 *-1.3759926-12  »0.,0. * 

20. *0. *0. *0. *0.*  0. *0. *0. * 

30.  *0.  *0.  *0.  , 0.  * "0 .  9 0 .  * 0 .  * 

4-39828. *  11855.  4,-1228.2  8 ,66 .2  43-12 »-. 5738-16 *-. 09086  20,0. *0. » 
50. *0. *0. *0. *0. *0. *0. 9O©  * 

60. *0. *0. *0. * 0 . *  0 . *0. *0. * 

70. *0. *0. *0. *0. *0. 9  0 . *0. * 

80. 9O. *0. *0. *0. *0. *0. *0. * 

90. *0. *0.*0. ,0. *  0. *0. 9O. ) 


3734  663 

3735  663 

3736  663 

3737  663 

3738  663 

3739  663 

3740  663 

3741  663 

3742  663 

3743  663 

3744  663 

3745  663 

3746  663 

3747  663 

3748  663 

3749  663 

3750  663 

3751  663 

3752  663 

3753  663 

3754  663 

3755  663 

3756  663 

3757  663 

3758  663 

3759  663 

3760  663 

3761  663 

3762  663 

3763  663 

3764  663 

3765  663 

3766  663 

3767  663 

3768  663 

3769  663 

3770  663 

3771  663 

3772  663 

3773  663 

3774  663 

3775  663 

3776  663 

3777  663 

3778  663 

3779  663 

3780  663 

3781  663 

3782  663 

3783  663 

3784  663 

3785  663 

3786  663 

3787  663 


DIMENSION  ATGR(8*9) *  CTDGR (6*9), AHGR (8*9)»ATS(8),  3788  663 
1CTDS  ( 6  )  *  AHS  (  8  )  .  3789  663 
-EQUIVAEENCE(AT*ATS) » (BT,ATS(2) ) *(CT,ATS(3 ) ) * (DT,ATS(4) ) *  X  379 Q  663 


1 ( ET  * ATS ( 5 ) ) » ( FT  » ATS (6)) »(GT»ATS(7) ) » ( HT  *ATS( 8 ) ) » { CTD*  CTDS ) » 
2 (DTD, CTDS (2) ) , <  ETD»CTDS(3) ) » ( FTD* CTDS ( 4 ) ) » (GTD»CTDS(5) ) » 

3 ( HTD»CTDS ( 6 ) ) ♦ (AH  »  AH  S ) » ( BH»AHS (  2  )  )  » (CH,AHS (3  ))  * ( DH  » AHS ( 4 )  ) > 
4 ( EH » AHS ( 5 ) ) » ( FH  »  AHS ( 6 ) ) » (GH*AHS(7) ) » ( HH»  AHS ( 8 ) ) 

* 

V=VD 
T  =  V 

KGAS=GAS 

MD=MODE 

* CHECK  IF  FIRST  ENTRY  FOR  MACHINE  RUN 
I F ( KGAS-6 >20*410*20 
20  I F ( I  FIRST— 9999 )90»30»90 
♦CHECK  IF  SAME  GAS  AS  LAST  ENTRY 
30  I F ( KGAS-LSTGAS )90» 40*90 
* CHECK  IF  SAME  MODE  AS  LAST  ENTRY 
40  I F ( LSTMDE-MD )50*50»90 

*IF  +»SET  INVERSION  CONSTANTS  IF  MINUS»  ALREADY  HAVE 

*  CONSTANTS  -  IF  ZERO*  NO  CHANGE  FROM  PREVIOUS  ENTRY 
50  IF (MD) 300,310,310 

♦FIRST  CHECK  IF  GAS  PRESENT 
90  I F ( 9  KGAS  )  100,95*95 

95  GO  TO( 110 » 100 , 1 00* 110* 100 *  100 » 100 » 100 » 1 10 ) »KGAS 
♦ERROR  COMMENT 

100  CALL  NOPROP (6HTMPENT  »KGAS) 

KGAS=1 

♦SELECT  GAS  CONSTANTS 
110  DO  120  L®1 * 8 

ATS(L) =ATGR(L*KGAS) 

120  CONTINUE 

IF(MD) 130*310,310 
♦SET  CONSTANTS  FOR  INVERSION 
130  DO  150  L=l»8 
♦FIRST  CUT  COEFFICIENTS 

AHS(L)=AHGR(L,KGAS) 

I F ( 6  L)150, 140*140 
♦DERIVATIVE  COEFFICIENTS 
140  CTDS ( L ) =CTDGR ( L » KGAS ) 

150  CONTINUE 

* 

♦BEGIN  CALCULATIONS 

♦FIRST  ENTRY  FOR  ITERATION  -  FIRST  TEMP  CUT 

300  T=V* ( V* ( V* ( V* ( V* (V* ( V*HH  GH)+FH )+EH)+DH)+CH)  BHJ+AH 
♦SET  ENTHALPY  FIRST  CUT 

310  HO=T*(T*(T»(T*(T*(T*(T*HT+GT)+FT)+ET)+DT)+CT)+BT)+AT 
IF(MD)320*340»340 

♦IF  POS*  ONLY  WANTED  ENTHALPY  AND  IS  THRU 
320  HO=HO-V 

DHDTO=T*(T*(T^( T*(T*(T*HTD+GTD)+FTD)+ETD)+DTD) 

1+CTD)+BT 

tmpent=t-ho/dhdto 

IF(ABSF(TMPENT  T)-. 049999) 350 *350 *330 
♦NEW  PASS 

330  T  =  TMPENT 
GO  TO  310 

♦FINISHED*  MODE=l  FIRST 
340  tmpent=ho 
*MODE=-l 


£3° 


3791  663 

3792  663 

3793  663 

3794  663 

3795  663 

3796  663 

3797  663 

3798  663 

3799  663 

3800  663 

3801  663 

3802  663 

3803  663 

3804  663 

3805  663 

3806  663 

3807  663 

3808  663 

3809  663 

3810  663 

3811  663 

3812  663 

3813  663 

3814  663 

3815  663 

3816  663 

3817  663 

3818  663 

3819  663 

3820  663 

3821  663 

3822  663 

3823  663 

3824  663 

3825  663 

3826  663 

3827  663 

3828  663 

3829  663 

3830  663 

3831  663 

3832  663 

3833  663 

3834  663 

3835  663 

3836  663 

3837  663 

3838  663 

3839  663 

3840  663 

3841  663 

3842  663 

3843  663 

3844  663 

3845  663 

3846  663 

3847  663 


350  CONTINUE 
*SET  SAVER  TRIGGERS 
IFIRST=9999 
LSTGAS=KGAS 

lstmde=md 

GO  TO  400 

410  IF (MD)430»400»420 
*HE 

420  TMPENT=1.242*V 
GO  TO  400 
430  TMPENT=.805*V 
♦FINISHED 

400  CONTINUE 
RETURN 
END ( 0  » 1 » 0 ) 

*  *  *  *  ******************* 
*VI SC-D  VISCOSITY-LBM/SEC-FT 

*  AIRCIHAPEX  527)  »  H2(4)(DC  61-1-47)  »  NEON  ( DC  58  6-205) 

*  HELIUM(HE)  APPROXIMATED  FROM  GE  DESIGN  DAT  A, G5 13 . 1 » 7/31 /58 

FUNCTION  VI SC ( TD »GAS ) 

DIMENSION  TMPLOW ( 4 ) ,TMPHI (4) »COFV IS(6»4)*A(6*4) 

EQUIVALENCES  A.COFVIS ) 

TABLE  TMPLOW ( 500. *180. ,460. » 660. ) ,TMPHI ( 2900. » 4400. » 2800. » 1760. 
1COFVIS ( 23 .25E-07  ».21365E  07  »-5 • 004E-12  * 6. 967E-16  »-2*  588E-20 » 

2  0  ®  s 

30. , 10. 8264E-09 *-l. 96298 E  12  * . 16358E-15 » 0. *0. » 

43 .5412E— 07*5*58 14E— 08  *— 4.3736E-1 1 »2.6390E— 14»-8.1457E-18 » 

59 * 7400 E— 22 » 8  »40E— 06 » 1 1 . 8 E— 09 » 0. » 0 . » 0 . » 0 . ) * T I TLE ( 4HV ISC) 

* 

EXCEED=0o 
KGAS-GAS 
T  =  TD 

GO  TO  ( 100* 10*10*400*10* 600*10, 10, 900) ,KGAS 
10  CALL  NOPROP ( T ITLE  » KG AS ) 

*AI  R 

100  KGASD=1 

GO  TO  2000 

*H2 

400  KGASD=2 

GO  TO  2000 

*HE 

600  KGASD=4 

GO  TO  2000 

*NEON 

900  KGASD-3 
♦CHECK  LIMITS 

2000  I F ( T  TMPLOW ( KGASD) ) 2005 ,2020,2010 
2005  T=TMPLOW( KGASD T 
GO  TO  2016 

2010  IFSTMPHI (KGASD)-T)2015, 2020, 2020 

2015  T=TMPHI (KGASD) 

2016  EXCEED=1* 

202  0  V I SC=A ( 1  *  KGASD ) +T*( A ( 2 , KGASD ) +T*( A ( 3 , KGASD ) +T* ( A ( 4 , KGASD) 
1+T*CA<5» KGASD)  T*A(6  » KGASD) ) ) ) ) 

♦WAS  TEMP  LIMIT  EXCEEDED 

3000  I F (EXCEED  >3010*3020,3010  ^ 

3010  CALL  LMPROP ( T ITLE , TMPLOW ( KGASD ) »TMPHI  (KGASD) , TD » KGAS ) 


3848  663 

3849  663 

3850  663 

3851  663 

3852  663 

3853  663 

3854  663 

3855  663 

3856  663 

3857  663 

3858  663 

3859  663 

3860  663 

3861  663 

3862  663 

*  3863  663 

3864  663 

3865  663 

3866  663 

3867  663 

3868  663 

3869  663 
),  3870  663 

3871  663 

3872  663 

3873  663 

3874  663 

3875  663 

3876  663 

3877  663 

3878  663 

3879  663 

3880  663 

3881  663 

3882  663 

3883  663 

3884  663 

3885  663 

3886  663 

3887  663 

3888  663 

3889  663 

3890  663 

3891  663 

3892  663 

3893  663 

3894  663 

3895  663 

3896  663 

3897  663 

3898  663 

3899  663 

3900  663 

3901  663 

3902  663 
.  3903  663 

39®4  663 


♦FINISHED 
3020  CONTINUE 
RETURN 
END ( 0  » 1 » 0 ) 


3905  663 

3906  663 

3907  663 

3908  663 


********************** 

*AMACH 

CUSEAGE  AMACH( INITIAL  GUESS.W/A.P » T .ACCURACY C FRACTI ONAL ) >GAS ) 
FUNCTION  AMACH ( OMACHB  ,G ,P  »T  »PER , GAS ) 

OMACHD=OMACHB 
5  GAMY=GAM ( T  *  GAS ) 

Cl= ( GAMY-1*  0 ) /2  •  0 
C2=(GAMY+1.0)/(2.0*(GAMY  1.0)) 

C3= ( G/P ) *SQRTF ( R(GAS)*T/(32.17*GAMY ) ) 

10  VAR=1.0+C1*OMACHD**2 
F= ( C3*VAR**C2 )  OMACHD 

FPRIME=C3*(GAMY+1.0)*OMACHD/ (2.0*VAR**( 1.0-C2) )-1.0 

OMACH=OMACHD-F/FPRIME 

IF (OMACH-.99 )20, 30,30 

20  I F ( ABSF ( ( OMACH  OMACHD ) /OMACH ) -PER ) 30 ,25  ,25 
25  OMACHD=OMACH 
GO  TO  10 
30  AMACH=OMACH 
RETURN 
END ( 0,1,0) 

********************** 
CCONTMP  SR  TO  CONVERT  NON-ZERO  TEMPS  FROM  R  TO  F  OR  VICE  VERSA 

*  SETS  ZERO  R  TEMPS  =  -9999. 

^NEGATIVE  TEMPS  ARE  ASSUMED  TO  BE  IN  DEG  F 

*  11/23/60 

*  SC  SKIRVIN 

*USEA6E-CALL  CONTMP ( SOURCE  TABLE»FINAL  TABLE* NO  OF 

*  ENTRIES*M0DE  OF  CHANGE) 

♦MODE.  =+l  F  TO  R*  =-l  R  TO  F 

SUBROUTINE  CONTMP (ST »NO»ET .MODE ) 

DIMENSION  ST ( 2 ) *  ET ( 2  ) 

IF(MODE) 100,100*110 
100  KRT=1 

GO  TO  120 
110  KRT=2 
120  DO  190  M=1 »NO 

I F  C ST ( M ) ) 180,140*160 
140  GO  TO( 150,190) »KRT 
150  ET ( M) =-9999. 

GO  TO  190 

160  GO  TO( 170,180) , KRT 
170  ET(M)=ST(M)-460. 

GO  TO  190 

180  ET(M)=ST(M)+460^ 

190  CONTINUE 
♦FINISHED 

200  CONTINUE 
RETURN 
END (0,0,0) 

********************** 
CDSTRB1  A  SR  FOR  SPOTTING  AND  DISTRIBUTION  WITHOUT  UNIT 
♦CHANGES  ..  ~ 

*  *  CO^NET(ANP  622)  *  * 


*  *  3909  663 

3910  663 

3911  663 

3912  663 

3913  663 

3914  663 

3915  663 

3916  663 

3917  663 

3918  663 

3919  663 

3920  663 

3921  663 

3922  663 

3923  663 

3924  663 

3925  663 

3926  663 

3927  663 

3928  663 

*  *  3929  663 

3930  663 

3931  663 

3932  663 

3933  663 

3934  663 

3935  663 

3936  663 

3937  663 

3938  663 

3939  663 

3940  663 

3941  663 

3942  663 

3943  663 

3944  663 

3945  663 

3946  663 

3947  663 

3948  663 

3949  663 

3950  663 

3951  663 

3952  663 

3953  663 

3954  663 

3955  663 

3956  663 

3957  663 

*  *  3958  663 

3959  663 

3960  663 
3964  663 


n  n  n 


*  S  C  SK IRVIN 

*  USEAGE  CALL  DSTRB I  t  SOURCE  TABLE » NO •  OF  SOURCE 

♦entries* receiving  table.distributing  variablejfixed  point).  \ 

♦CONTROL (FIXED  POINT ) .SIGNAL  IF  DISTRIBUTION  DONE)  \ 

*  CONTROL, =0  NON  ZERO  POINT-FOR-POINT  SHIFT»=1  TAKE  \ 

♦DISTRIBUTE  ENTRIES  ONE  AT  A  TIME»=2  TAKE  DISTRIBUTE 

♦ENTRIES  TWO  AT  A  TIME  AND  DISTRIBUTE  FROM  SOURCE  \ 

♦INTO  RECEIVER®  \ 

*  S IGN AL  *  =0  IF  NO  DI STR I  BUT  I  ON . =1  IF  DISTRIBUTION.  X 

♦SC  SKIRVIN  9/20/60 

SUBROUTINE  DSTRB 1 ( SOURCE, NOSOR » RECEI V. KDI STR » I  TYPE » KSl G ) 
DIMENSION  SOURCE ( 500 ) ,RECEIV(500) » KDI STR ( 1000 ) 

KS IG=0 

IF( ITYPE)100»200,100 

♦NOT  SIMPLE  TRANSFER  OF  NON-ZERO  QUANTITIES 
100  I F ( 1  NOSOR) 110s 120.120 
♦TEST  IF  KDiSTR  PRESENT  FOR  NON-SIMPLE  TRANSFER 
110  IF(KDISTRd)  )230»230»120 
120  DO  190  N= 1 ♦ 1 000  » I  TYPE 
♦TEST  IF  FINISHED 

I F ( KDISTR ( N ) 5230.230.130 
130  KL=KDISTR(N) 

KS IG-1 

♦TEST  IF  POINT-FOR  POINT  SHIFT  OR  DISTRIBUTION 
IF  C I  TYPE-1 5  180.180.140 
♦DISTRIBUTION 

140  KU=KDISTR(N+1) 

DO  170  K=KL»KU 

♦TEST  IF  SINGLE-ENTRY  OR  MULTIPLE  ENTRY  SOURCE 
IF(NOSOR-l) 150. 150.160 
♦SINGLE  ENTRY 

150  RECElV(K)=SOURCE(l) 

GO  TO  170 
♦MULTIPLE-ENTRY 

160  RECEIV(K3-S0URCE(KL) 

170  CONTINUE 
GO  TO  190 

♦POINT-FOR  POINT  SHIFT 
180  RECE I V( KL ) -SOURCE ( 1 ) 

♦LOOP  END 

190  CONTINUE 
GO  TO  230 
♦SIMPLE  TRANSFER 

200  DO  220  N= 1 » NOSOR 
♦TEST  TO  INSURE  NON-ZERO  SHIFT 
IF (SOURCE (N) 5210,220.210 
210  RECEIV(N)=S0URCE(N) 

220  CONTINUE  '  " 

♦SUBROUTINE  END 
230  RETURN 

END ( 0  » 1 » 0 ) 

******************  ***** 
CDYPRSGAS 

FUNCTION  DYPRS(G,P.T .AMACH.GAS)  t 

CALCULATES  COMPRESSIBLE  DYNAMIC  PRESS  IN  PSI  OR  { 


A. 

\ 


DYPRS  (  MAGS  VFI  •  TOT  At  '  PRFSS  •  TOTAI  TFMP.MAfTH 


PSF,  DEPENDING  ON  CONSISTENT  INPUT  UNITS 
USFAGF 


AJ/ 


3962 

663 

3963 

663 

3964 

663 

3965 

663  ' 

3966 

663  : 

3967 

663 

3968 

663 

3969 

663 

3970 

663 

3971 

663 

3972 

663 

3973 

663 

3974 

663 

\  3975 

663 

'3976 

663 

39.77 

663  : 

39  p8 

663 

397^ 

••663 

3980 

.  <aj6  3 

3981 

663 

3982 

66  3\ 

3983 

663 

3984 

663 

3985 

663 

3986 

663 

3987 

663 

3988 

663 

3989 

663 

3990 

663 

3991 

663 

3992 

663 

3993 

663 

3994 

663 

3995 

663 

3996 

663 

3997 

663 

3998 

663 

3999 

663 

4000 

663 

4001 

663 

4002 

663 

4003 

663 

4004 

663 

4005 

663 

4006 

663 

4007 

663 

4008 

663 

4009 

663 

4010 

663 

4011 

663 

4012 

663 

4013 

663 

4014 

663 

4015 

663 

4016 

663  ; 

4017 

663  : 

J/.  mo 

AH'* 

C  NO  » GAS  SELECTOR! 

GAMAsGAM { T  »GAS ) 

OYPRS= < R  t GAS 5 * ( G**2*T/P ) * ( 1 .  +  ( GAMA  1.5/2.* 

1AMACH**2)**( 1. /(GAMA-1.) ! 1/64.34 
RETURN 
END  ( 0,0,0! 

********  *************** 
*EXTRAP  A  SR  TO  DO  2  OR  3-POINT  EXTRAPOLATION 

*  SC  SKIRVIN 

*  3/21/61 

*USEAGE  -  CALL  EXTR AP < XO , YO »X 1 » Y1 »X2 » Y2 » X3 ( NEXT  TRY}, 

*  Y3 {DESIRED  YIELD) «NO<2  OR  3,  WHETHER  2  OR  3  POINT 

*  FIT  WANTED} 1 

*MODEL  -  ( Y-B  >**2=4»*F(X— A )  FOR  3-POINT,  Y=AX+B 

*  FOR  2 -POINT 

*  AUTOMATICALLY  DOES  2-POINT  WITH  X1»Y1»X2»Y2»  IF 

*  DIVIDE  CHECK  ENCOUNTERED  DURING  3  PT  FIT 

* 

SUBROUTINE  EXTR AP ( XO, YO ,X 1 , Y 1 »X2 , Y2 ,X3 , Y3  »NO ) 

* 

♦SELECT  FIT 

I F { NO-2  5300,200,100 
*3~POINT 

100  Y2M0=Y2-Y0 
Y2P0sY2-^Y0 
Y1MQ-Y1—Y0 
Y 1P0=Y 1+YO 
X2M0=X2-X0 
XlM0sXl-X0 

B={ Y2M0*Y2P0*X1M0-Y1M0*Y1P0*X2M05 / 

1 {2®*CY2M0*X1M0  Y1M0*X2M0) 1 
IF  DIVIDE  CHECK  200,110 
110  FT4={Y2M0*Y2P0  2 »*B*Y2M0 ) /X2M0 
IF  DIVIDE  CHECK  200,120 
120  A=X2  « ( Y2-B)**2/FT4) 

IF  DIVIDE  CHECK  200,130 
130  X3-A  « ( Y3-B5**2/FT4) 

GO  TO  300 
*2-POI NT 

200  X3=( ( X2—X1 1 / { Y2“Y1 ) )*(Y3  Y25+X2 
*FI N I  SHED 

300  CONTINUE 
RETURN 
END! 0,1,0 5 

***  ******************** 
CFLWFUN  A  FUNCTION  WHICH  EVALUATES  THE  COMPRESSIBLE  FLOW  FUNCTION 
*  IN  TERMS  OF  TOTAL  PROPERTIES  -  UNITS  ARE  INCH-BASED  AND  DEG  R 
FUNCTION  FLWFUN  C  AFF »P,T,OM,GAS) 

G AMALGAM ( T  »GAS  5 

FLWFUN  =AFF  *OM*P  *SQRTF { ( 32 . 17* 

1GAMA ) / ( R (GAS ) *T  ) )/( (l.+C (GAMA-1. 5/2. )*OM**2) 

2** ( ( GAMA+1 . 1 / ( 2  ** ( GAMA-1 . ) ) 1 ) 

RETURN 
END ( 0,0,0) 

***  ******************** 
*FPRNT  SUBROUTINE  TO  PRINT  FLOATING  POINT  VAR.  __  _  _ . 


4019  663 

4020  663 

4021  663 

4022  663 

4023  663 

4024  663 

*  4025  663 

4026  663 

4027  663 

4028  663 

4029  663 

4030  663 

4031  663 

4032  663 

4033  663 

4034  663 

4035  663 

4036  663 

4037  663 

4038  663 

4039  663 

4040  663 

4041  663 

4042  663 

4043  663 

4044  663 

4045  663 

4046  663 

4047  663 

4048  663 

4049  663 

4050  663 

4051  663 

4052  663 

4053  663 

4054  663 

4055  663 

4056  663 

4057  663 

4058  663 

4059  663 

4060  663 

4061  663 

4062  663 

*  4063  663 

4064  663 

4065  663 

4066  663 

4067  663 

4068  663 

4069  663 

4070  663 

4071  663 

4072  663 

*  4073  663 
'  4074  663 


Cl  inOAiiTTkir  rni^kiT  /  n 


dimension  V ( 500 ) 

IF(K)5»5»10 

5  I F (SENSE  SWITCH  5)10*20 
10  WRITE  OUTPUT  TAPE  3 » 1000 *B » J , ( V ( K ) » K  =  1 *N ) 

1000  FORMAT(6HO  A6»I3/(1P4E15.5) ) 

20  RETURN 
END ( 0  » 1 »  0 ) 

********************* 
LOSS  SR  TO  CALCULATE  NON-FRICTIONAL  TOTAL  PRESSURE  LOSSES 
THIS  VERSION  HAS  ONLY  INCOMPRESSIBLE  EXPANSION  AND 
CONTRACTION  LOSSES  BASED  ON  DF56AGT588 ( EXP )  AND 
DF56AGT468 ( CONTRAC  ) 

J  E  STANKEVICZ 

SUBROUTINE  LOSS ( A1 » A2 »L *DIMA» DI MB »DIMC * THETA»CLOSS ) 

USEAGE  ( A1  =  ST A  1  AREA  » A2=STA  2  AREA  *  L  =  TYPE  OF 
LOSS*NEXT  4  VARIABLES  CAN  HAVE  VARIOUS  USES* 

C  LOSS  CALCULATED  COEFFICIENT) 

2000  FORMAT 
SPACE 

LOSS  SUBROUTINE  HAS  MAX  SELECTION  OF  4  IN  THIS  VERSION. 

PROGRAM  ASKED  FOR  -I.  CHECK  WITH  J  STANKEVICZ  OR 
S  SKIRVIN  FOR  LATER »  EXPANDED  VERSION. 

SPACE 

END  OF  FORMAT 
I F ( L  4)10*10*20 
10  GO  TO  ( 1  *2*3*4) »L 

1  INDICATES  CONTRACTION  BASED  ON  Q1 

1  S I G=A2/A 1 

PS  I =1.0- ( C 2. 0+SIGJ/5. 1415927 )*SGRTF( 1.0-SIG) 

CLOSS=< (loO/PSI-l.O )/SIG)**2 
GO  TO  100 

2  INDICATES  CONTRACTION  BASED  Q2 

2  SIG=A2/A1 

PSI=1.0-< ( 2. 0+SIG)/5. 1415927 )*SQRTF( 1.0-SIG) 

CLOSS=<1.0/PSI  1.0) **2 
GO  TO  100 

3  INDICATES  EXPANSION  BASED  ON  Q1 

3  CLOSS=< 1.0-A1/A2)**2 
GO  TO  100 

4  INDICATES  EXPANSION  BASED  ON  Q2 

4  CLOSS=( A2/A1-1.0)**2 
GO  TO  100 

20  WRITE  OUTPUT  TAPE  3»32000»L 
SENSE  LIGHT  2 
CLOSS=0. 

100  RETURN  - 

END ( 0  9 1  *  0 ) 

******  *************** 
NTERR622  SR  TO  PRINT  ERROR  COMMENTS  FOR 
*  COMNET ( ANP  622)  *  * 

5  C  SKIRVIN 
10/6/60 

SUBROUTINE  NETERR ( N » LOC ) 

WRITE  OUTPUT  TAPE  3 , 32000»N ♦ LOC  — . -  - 

2000  FORMAT  . . 


4076  663 

4077  663 

4078  663 

4079  663 

4080  663 

4081  663 

4082  663 

*  *  4083  663 

4084  663 

4085  663 

4086  663 

4087  663 

4088  663 

4089  663 

4090  663 

4091  663 

4092  663 

4093  663 

4094  663 

4095  663 

4096  663 

4097  663 

4098  663 

4099  663 

4100  663 

4101  663 

4102  663 

4103  663 

4104  663 

4105  663 

4106  663 

4107  663 

4108  663 

4109  663 

4110  663 

4111  663 

4112  663 

4113  663 

4114  663 

4115  663 

4116  663 

4117  663 

4118  663 

4119  663 

4120  663 

4121  663 

4122  663 

4123  663 

4124  663 

*  *  4125  663 

4126  663 

4127  663 

4128  663 

4129  663 

4130  663 

•  4131  663 
4132  663 


u  u  u 


SPACE  2 
***** 

*  CALCULATION  TERMINATED  BY  TYPE  -I  ERROR  AT  LOC  -I  *  *  * 
***** 

END  OF  FORMAT 

RETURN 

END ( 0 » 1 ,0 ) 

*******  ***************  *. 
CPOWER3  A  SR  TO  CARRY  OUT  INTEGRATION  OF  POWER  PROFILES.  NOT  SAME 

*  STATEMNT  AS  POWER2 A »  BUT  IS  STRIPPED  FOR  MINIMUM  MEMORY  AND  DOES 

*  PUNCH »  PRINT »  OR  NORMALIZE  POWER  PROFILES 
USEAGE  CALL  POWERS ( TRAI LING  EDGE  FACTORS »  ACCUMULATED  SUM, 

NO  OF  STAGES, ST AGE  LENGTHS »  ENTRANCE  POWER ♦  MIDPOINT  POWER. 
EXIT  POWER) 

SUBROUTINE  POWER3 ( Q » A2 » MN »OLL ,P0 »P1 , P2 ) 

DIMENSION  A2< 100) ,Q( ICO) ,OLL( 100 ) ,  P0(100>» 

lPl(lOO) »P2( 100) 

EQUIVALENCE  ( DELTA sFACNRM ) ,{ S IGMA sMSTPRT ) ♦ ( DELTA ,ADUM ) 
SIGMA=Oe 

delta=o. 

10  DO  50  1=1 ,MN 

DELTA=DELTA+OLL ( I ) 

A2 ( 1 )  =  ( OLL( I )/6. )*(P0( I )  4.*P1( I )+P2( I )  ) 

SIGMA=SIGMA+A2( I  ) 

C  50  CALCULATES  TRAILING  EDGE  TO  AVERAGE 

50  Q( I )=P2( I )*OLL( I  )/A2 ( I  ) 

160  DO  190  1=1 »MN 

ADUMsA2 ( I ) /SIGMA 
IFCI  1)170*170*180 
170  A2( I ) =ADUM 
GO  TO  190 

180  A2 ( I ) =ADUM+A2 II  — 1 ) 

190  CONTINUE 
395  RETURN 

END ( 0,0,0) 

*************#.***###### 
*PRSFUN  CALCULATES  TOT  PRES  CORRESPONDING  TO 

*  GIVEN  FLOW  AREA»  WT.  FLOW,  TOT  TEMP,  MACH  NO,  AND  GAS 

FUNCTION  PRSFUN(A»W»T »OM , GAS ) 

GAMA=GAM ( T , GAS ) 

PRSFUN=<W/(OM*AS)*SQRTF( (R(GAS)*T/(32 • 17*GAMA ) ) 

1*( 1.  OM**2*{ GAMA-1. >/2. )**( (GAMA+1. ) /(GAMA-1. ) ) ) 

RETURN 
END (0,1,0) 

*  ********************** 
*PSTAT  FUNCTION  TO  CALCULATE  STATIC  PRESSURE 

C  COMPRESSIBLE  FLOW  STATIC  PRESSURE 

*  USEAGE  PSTAT ( TOT  PRES, TOT  TEMP, MACH  NO, GAS  SELECTOR ( FP ) ) 

FUNCTION  PSTAT(P,T,OM,GAS) 

GAMA=GAM(T,GAS) 

PSTAT=P/((l.+( (GAMA-1. )/2.)*OM**2)**(GAMa/(GAMA-1. ) ) ) 

RETURN 
END (0,1,0) 

*  .  ********************** 

CTPINSP  A  SR  TO  INSPECT  THE  FIRST  RECORD  ON  TAPE  2 

*  IF  DIP-DATA  CARD,  BACKSPACES  TAPE  2 

*  IF  NOT  A  DIP-DATA  CARD.  'WILL  OUTPUT  ON  TAPE  3  o? 7 


<237 


4133  663 

4134  663 

4135  663 

4136  663 

4137  663 

4138  663 

4139  663 

*  4140  663 

CALL414 1  663 
NOT  4142  663 

4143  663 

4144  663 

4145  663 

4146  663 

4147  663 

4148  663 

4149  663 

4150  663 

4151  663 

4152  663 

4153  663 

4154  663 

4155  663 

4156  663 

4157  663 

4158  663 

4159  663 

4160  663 

4161  663 

4162  663 

4163  663 

4164  663 

4165  663 

4166  663 

4167  663 

*  4168  663 

4169  663 

4170  663 

4171  663 

4172  663 

4173  663 

4174  663 

4175  663 

4176  663 

*  4177  663 

4178  663 

4179  663 

4180  663 

4181  663 

4182  663 

4183  663 

4184  663 

4185  663 

*  4186  663 

4187  663 

4188  663 
A489  663 


CD  CO  CO  CO  * 


*A  ONE  OR  ZERO  IN  COL  1  INDICATES  COMMENT  CARD 
SUBROUTINE  TPINSP 
DIMENSION  REMAIN(ll) 

READ  INPUT  TAPE  2 » 32000 , TEST »( REMAIN ( N ) *N= 1, 1 1 ) 

32000  FORMAT (1A6»11A6) 

AM AS K=77 0000000000 
CMASK= 170000000 000 
BMASK=760 000000 000 

atest=test*amask 

TEST  FOR  ZERO  CONTROL 
B  CTEST=ATEST*CMASK 

IF(CTEST!100»300»100 
♦TEST  FOR  ONE  CONTROL 

B  100  btest=atest*bmask 

IF(BTEST5200,300,200 

♦DIP-CARD 

200  BACKSPACE  2 
GO  TO  400 
♦COMMENT  CARD 

300  WRITE  OUTPUT  TAPE  3  *  32000, TEST »( REMAI N ( N )> N=1 , 1 1 ) 

400  RETURN 

END ( 0,1,0) 

*  *  *  *  *  *  *  *  *  *  *  *  *  *•"  *  *  *  *  *  *  *  *  *  * 
♦XPRNT  SUBROUTINE  TO  PRINT  INTEGER  VAR. 

SUBROUTINE  XPRNT (B,V,J,N»K) 

DIMENSION  V ( 500  ) 

IF ( K ) 5 »5  » 10 

5  I F ( SENSE  SWITCH  5)10,20 
10  WRITE  OUTPUT  TAPE  3 , 1000 »B , J , ( V ( K ) ,K=1 ,N ) 

1000  FORMAT(6HO  A6 » 1 3/ ( 7 1 10  )  ) 

20  RETURN 

END ( 0,0,0) 


4190  663 

4191  663 

4192  663 

4193  663 

4194  663 

4195  663 

4196  663 

4197  663 

4198  663 

4199  663 

4200  663 

4201  663 

4202  663 

4203  663 

4204  663 

4205  663 

4206  663 

4207  663 

4208  663 

4209  663 

4210  663 

4211  663 

4212  663 

4213  663 

4214  663 

4215  663 

4216  663 

4217  663 

4218  663 

4219  663 

4220  663 

4221  663 


5 


*STHA  -THIS  PROGRAM  IS  A  MODIFICATION  OF  THE  IBM  709 
COUNT  700 

♦FORTRAN  STH  ROUTINE.  IT  IS  ESSENTIALLY  A  MODICATION 
*OF  J.  A.  DELANEY  704  STHA  USING  709  STH.  PROGRAM 
♦MODIFICATIONS  BY  R.A.  PASTORE  NOV.  1960. 

REM 

REM 

ENTRY  (STH) 

ENTRY  (STHM) 

ENTRY  RESTO 
ENTRY  LINES 
ENTRY  PAGES 
ENTRY  NEWSET 
ENTRY  HDING 
ENTRY  NOHEAD 
ENTRY  COLUMN 


STHA 

ENTRY  BOTTOM 
ENTRY  ANPIPM 
ENTRY  NOPAGE 

REM 

REM 

REM 

REM 

REM 

TTR  STH 1 

IND72 

PZE 

HDP 

PZE  1 

NP 

PZE  ,0,1 

HDN 

PZE 

CHHD 

PZE 

D52 

PZE  »0»53 

D53 

PZE  »0  >54 

D54 

PZE  »0 » 55 

BINHD 

OCT  376060606060 

STH1 

BCD  1 

REP  1 9 19 

CLA  D  (  2  ) 

STH  18 

STO  BOTLS 

CAL  TIP8 

SLW  ANPIPM 

CAL  TOSTH 

STHB 

SLW  STH1 

STZ  NLLFT 

STZ  HDC 

CLA  1 »4 

STA  WRBF1 

STA  WRBF2-1 

STA  GET  1+ 1 

STA  BUFNW 

STD  NWDS 

SXD  X4»4 

SXD  X2.2 

SXD  Xl»l 

ZERO  FOR  NO  PAGE  PRINTOUT 

NEXT  PAGE  HEADING  IND 
CHANGE  HEADING  INDICATOR 


BUFFER  ADDRESS.O  9 WORD  COUNT 
INITIALIZE 
WRRF  ROUTINE 


c 33? 


STHA 

1 

STHA 

2 

STHA 

3 

STHA 

4 

STHA 

5 

STHA 

6 

STHA 

*7 

t 

STHA 

8 

STHA 

9 

STHA 

10 

STHA 

11 

STHA 

12 

STHA 

13 

STHA 

14 

STHA 

15 

STHA 

16 

STHA 

1'7 

STHA 

18 

STHA 

19 

STHA 

20 

STHA 

21 

STHA 

22 

STHA 

23 

STHA 

24 

STHA 

25 

036 

STHA 

26 

037 

STHA 

27 

038 

STHA 

28 

039 

STHA 

29 

040 

STHA 

30 

041 

STHA 

31 

042 

STHA 

32 

043 

STHA 

33 

044 

STHA 

34 

045 

STHA 

35 

046 

STHA 

36 

STHA' 

37 

STHA 

38 

061 

STHA 

39 

STHA 

40 

063 

STHA 

41 

064 

STHA 

42 

065 

STHA 

43 

066 

STHA 

44 

STHA 

45 

068 

STHA 

46 

069 

STHA 

47 

070 

STHA 

48 

STHA 

49 

071 

STHA 

50 

075 

STHA 

51 

076 

STHA 

52 

07.7 

SI  HA 

53 

GET  1 


PBL 

OUT 


PXD  *0 
LDQ 
LGL  6 
PAX  *2 
STO  CONT 
SUB  D ( 48 ) 

TZE  PBL 
ADD  D  (  32 ) 

TZE  PPL 
TXH  I LLGL  »  2  »  8 
TRA  SET  *  2 
LXA  D  <  3  )  *  2 
TRA  PNUM 
LXD  Xl*l 
LXD  X2 « 2 


LXD  X4 » 4 
BACK  TRA  2*4 
*P1  PROCESS  CONTROL  1 


PI 

CLA 

BOTLS 

TZE 

*+3 

STZ 

BOTLS 

TRA 

PI. 2 

CLA 

HDC 

TZE 

PI. 2 

TSX 

PZE 

WRHD  »4 

PI. 2 

TSX 

HDTST  »4 

CLA 

R 

TZE 

PI. 3 

LXA 

D(  3 )  »2 

STZ 

R 

PI. 3 

TSX 

WRBF1 »4 

TRA 

OUT 

*PPL 

PROCESS  PLUS 

PPL 

LXA 

D  (  5  )  ♦  2 

TSX 

WRBF2  *4 

TRA 

OUT 

*P8  PROCESS  CONTROL 

P  8 

CLA 

NLLFT 

TZE 

P8.5 

CLA 

HDC 

TZE 

P8N 

LXD 

NLLFT  » 1 

TXL 

IS1 »1»2 

TXI 

*+l 9 1 ♦ —2 

TSX 

WR1WD94 

PZE 

1 

T  IX 

*-2*1*2 

IS1 

TXL 

WR81*1, 

TSX 

WR1WD.4 

3(0) 

PZE 

WR8 1 

LXA 

D  (  3  )  »  2 

TSX 

WRBF1 »4 

CO 

• 

STZ 

NLLFT 

CLA 

LPP 

STO 

NL 

TRA 

„  .  .  L.  .5  1 

OUT 

WRITE  HEADING 
AT  BOTTOM  IF 
CALLED  FOR 
TEST  FOR  HEADING 
IS  PAGE  RESTORED 
NO 

MAKE  CONTROL  BLANK  FOR  YES 


NUMBER  OF  LINES  LEFT  TO  A 


STHA 

54 

079 

STHA 

55 

080 

STHA 

56 

081 

STHA 

57 

082 

STHA 

58 

083 

STHA 

59 

084 

STHA 

60 

085 

STHA 

61 

086 

STHA 

62 

087 

STHA 

63 

088 

STHA 

64 

089 

STHA 

65 

090 

STHA 

66 

091 

STHA 

67 

092 

STHA 

68 

093 

STHA 

69 

095 

STHA 

70 

096 

STHA 

71 

097 

STHA 

72 

098 

STHA 

73 

099 

STHA 

74 

100 

STHA 

75 

101 

STHA 

76 

102 

STHA 

77 

103 

STHA 

78 

104 

STHA 

79 

105 

STHA 

8  0 

106 

STHA 

81 

107 

STHA 

82 

108 

STHA 

83 

109 

STHA 

84 

110 

STHA 

85 

111 

STHA 

86 

112 

STHA 

87 

113 

STHA 

88 

114 

STHA 

89 

115 

STHA 

90 

116 

STHA 

91 

117 

STHA 

92 

118 

STHA 

93 

119 

STHA 

94 

120 

STHA 

95 

121 

STHA 

96 

122 

STHA 

97 

123 

STHA 

98 

124 

STHA 

99 

125 

STHA 

100 

126 

STHA 

101 

STHA 

102 

128 

STHA 

103 

129 

STHA 

104 

STHA 

105 

131 

STHA 

106 

132 

STHA 

107 

133 

STHA 

108 

134 

STHA 

109 

135  STHA  110 


REM 

STHA 

111 

REM 

WRITE  1  WORD 

ROUTINE. 

STHA 

112 

REM 

TSX  WR1WD»4 

STHA 

113 

REM 

PZE  N 

STHA 

114 

REM 

WHERE  N  =  0*1 

*2  FOR  BLANK*ZERO* 

OR 

FOUR. 

STHA 

115 

REM 

STHA 

116 

WR2 

PZE 

1WD 

STHA 

117 

WR1WD 

»  CLA 

WR2 

STHA 

118 

SUB 

1*4 

STHA 

119 

STA 

*+2 

STHA 

120 

SXA 

WR3  *4 

STHA 

121 

TSX 

WRITE»4 

STHA 

122 

PZE 

*0*1 

STHA 

123 

WR3 

AXT 

*4 

STHA 

124 

TRA 

2*4 

STHA 

125 

P8N 

TSX 

WRBF2  *4 

142 

STHA 

126 

TRA 

P8.7 

143 

STHA 

127 

P8.5 

LX  A 

D  «1 5  *  2 

144 

STHA 

128 

TRA 

PI 

145 

STHA 

129 

♦ELFT 

ENOUGH  LINES  LEFT 

146 

STHA 

130 

*TRA1 9 

4  FOR  NO 

147 

STHA 

131 

♦TRA2* 

4  FOR  YES 

148 

STHA 

132 

♦CALL 

149 

STHA 

133 

* 

TSX  ELFT  »4 

150 

STHA 

134 

ELFT 

CAL 

VECT  9  2 

151 

STHA 

135 

ANA 

OMSK 

GET  NUMBER  OF 

LINES 

152 

STHA 

136 

CAS 

NLLFT 

ENOUGH 

153 

STHA 

137 

TRA 

I  *4 

154 

STHA 

138 

TRA 

2*4 

155 

STHA 

139 

TRA 

2*4 

156 

STHA 

140 

*WRHD 

WRITE  TH  CURRENT  HEADING 

157 

STHA 

141 

♦CALL 

158 

STHA 

142 

* 

TSX  WRHD»4 

159 

STHA 

143 

* 

ZER  0  OR  1 

BOT  OR  TOP 

160 

STHA 

144 

WRHD 

SXD 

WSV1»1 

161 

STHA 

145 

SXD 

WSV4*4 

162 

STHA 

146 

CLA 

binhd 

163 

STHA 

147 

STO 

SBNHD 

164 

STHA 

148 

CLA 

TOPHD 

165 

STHA 

149 

STO 

BINHD 

166 

STHA 

150 

SXD 

WSV2  9  2 

167 

STHA 

151 

CLA 

194 

168 

STHA 

152 

PAX 

9  1 

169 

STHA 

153 

ADRHD 

CAL 

A 

1ST  WORD  OF  HEADING 

170 

STHA 

154 

ANA 

MSK 

171 

STHA 

155 

ORA 

M8  *  1 

INSERT  1  OR  8 

172 

STHA 

156 

ADHD 

SLW 

A 

173 

STHA 

157 

LXA 

D( 20 ) 9 1 

174 

STHA 

158 

CLA 

IND72 

IS  PRINT  72  COL 

175 

STHA 

159 

TNZ 

*+2 

176 

STHA 

160 

TXI 

*+ 1 9 1 9 “8 

YES  REDUCE  WORDS 

BY  8 

177 

STHA 

161 

CLA 

1*4 

GET  CONTROL 

IS 

THIS  TOP 

178 

STHA 

162 

TZE 

NPG 

NO 

179 

STHA 

163 

CLA 

HDP 

YES  TEST  FOR 

PRINTING  PAGE 

180 

STHA 

164 

TZE 

NPG 

NO 

181 

STHA 

165 

TSX 

0T0D*4 

YES  GET  BCI 

PAGE 

182 

STHA 

166 

TRA 

:  cpylp 

z 

,  V 

•»  . 

sxua 

167, 

NPG 

TRA 

WR4-3 

STHA 

168 

CPYLP 

LXA 

D  (  2 )  *  2 

STHA 

169 

PXA 

*1 

STHA 

170 

ADD 

ADHD 

STHA 

171 

STA 

HDSAV1 

STHA 

172 

STA 

HDSAV2 

STHA 

173 

STA 

HDSAV4 

STHA 

174 

HDSAV1 

CLA 

» 2 

SAVE 

STHA 

175 

STO 

HDSAV+2  *  2 

LAST  2 

STHA 

176 

CLA 

PAGEN+2 ♦ 2 

WORDS  OF 

STHA 

177 

HDSAV2 

STO 

*2 

HEADING 

STHA 

178 

T IX 

*-4*2»l 

STHA 

179 

CLA 

*+l 

STHA 

180 

STO 

HDSAV+2 

STHA 

181 

SXD 

WR4+1 » 1 

STHA 

182 

CLA 

ADHD 

STHA 

183 

STA 

WR4  +  1 

STHA 

184 

WR4 

TSX 

WRITE»4 

STHA 

185 

PZE 

♦  *  — 

STHA 

186 

NZT 

HDSAV+2 

WAS  HEAD  SAVED. 

STHA 

187 

TRA 

HDSAV3 

NO. 

STHA 

188 

STZ 

HDSAV+2 

YES.  RESTORE 

STHA 

189 

LXA 

DC  2) *2 

LAST  2  WORDS 

STHA 

190 

CLA 

HDSAV+2* 2 

OF  HEADING 

STHA 

191 

-IDSAV4 

STO 

*2 

STHA 

192 

T I X 

*-2*2 » 1 

STHA 

193 

HDSAV3 

LXD 

WSV1*1 

STHA 

194 

CLA 

SBNHD 

197 

STHA 

195 

STO 

BINHD 

198 

STHA 

196 

LXD 

WSV2  »  2 

199 

STHA 

197 

LXD 

WSV4*4 

200 

STHA 

198 

TRA 

2*4 

201 

STHA 

199 

/SV1 

PZE 

202 

STHA 

200 

#SV  2 

PZE 

203 

STHA 

201 

<(SV  4 

PZE 

204 

STHA 

202 

5BNHD 

PZE 

205 

STHA 

203 

HDSAV 

BSS 

2 

STHA 

204 

PZE 

0 

STHA 

205 

♦HDTEST  TEST  FOR  PRINTING 

HEADING 

206 

STHA 

206 

♦TESTS 

IF  HEADING  SPECIFICATION  HAS  BEEN 

207 

STHA 

207 

♦CHANGED 

IF  SO  WHETHER 

IT 

HAS  BEEN 

208 

STHA 

208 

♦CANCELLED 

IF  NOT  IT 

WRITES  THE  HEADING 

209 

STHA 

209 

♦RETURNS  HDC  =0  FOR  NO  HEADING  HDC=1  FOR  ONE 

210 

STHA 

210 

♦SETS  NL  TC 

)  ZERO  ANP  UPDATES 

NP 

211 

STHA 

211 

♦ENTER 

BY 

212 

STHA 

212 

♦  TSX  HDT ST »4 

213 

STHA 

213 

♦  NORMAL  RETURN 

214 

STHA 

214 

IDTST 

STZ 

R 

- 

215 

STHA 

215 

STZ 

BOTLS 

216 

STHA 

216 

CLA 

MBHD 

HAS  BINARY  BUFFER 

BEEN 

217 

STHA 

217 

CAS 

BINHD 

CHANGED 

218 

STHA 

218 

TRA 

SETB 

YES 

219 

STHA 

219 

CLA 

CHHD 

NO  HAS  CALL  HDING 

BEEN  USED 

220 

STHA 

220 

TNZ 

SETC 

YES 

221 

STHA 

221 

CLA 

HDN 

NO  HAS  CALL  NOHEAD 

BEEN  USED 

222 

STHA 

222 

TNZ 

D0NE1 

223 

STHA 

223 

>TZH .. 

SXZ  HDC.  J 

- 

.  224 

STHA 

224 

CLA 

HDP 

1 

225 

STHA 

225 

TNZ 

WOPG 

226 

STHA 

226 

STZH1 

cla 

D54 

227 

STHA 

227 

STZ 

HDN 

228 

STHA 

228 

TRA 

SLPP 

229 

STHA 

229 

LBHD1 

PZE 

BINHD 

230 

STHA 

230 

SETB 

CAL 

BINHD 

SET  UP  TO  PRINT  HEADING 

231 

STHA 

231 

SLW 

TOPHD 

1  IN  COL  1 

232 

STHA 

232 

CLA 

LBHD1 

233 

STHA 

233 

STA 

ADHD 

234 

STHA 

234 

STA 

ADRHD 

235 

STHA 

235 

CLA 

MBHD 

RESTORE  1ST  WORD 

236 

STHA 

236 

STO 

BINHD 

OF  BINARY  BUFFER 

237 

STHA 

237 

TRA 

DONE  1 

STHA 

238 

SETC 

STZ 

CHHD 

239 

STHA 

239 

D0NE1 

SXD 

SV4  *4 

240 

STHA 

240 

TSX 

WRHD»4 

241 

STHA 

241 

D(  1 ) 

PZE 

1 

242 

STHA 

242 

LXD 

SV4  »4 

243 

STHA 

243 

CLA 

D52 

244 

STHA 

244 

STO 

HDC 

245 

STHA 

245 

STO 

HDN 

246 

STHA 

246 

SR 

STO 

R 

247 

STHA 

247 

SLPP 

STO 

LPP 

248 

STHA 

248 

STO 

NLLFT 

249 

STHA 

249 

CLA 

NP 

250 

STHA 

250 

ADD 

D1 

251 

STHA 

251 

STO 

NP 

252 

STHA 

252 

STZ 

NL 

253 

STHA 

253 

CLA 

R 

254 

STHA 

254 

TNZ 

*+6 

255 

STHA 

255 

CLA 

D19 

256 

STHA 

256 

STO 

VECT2 

2  57 

STHA 

257 

CLA 

D7 

258 

STHA 

258 

STO 

VECT4 

259 

STHA 

259 

TRA 

1  »4 

260 

STHA 

260 

CLA 

D18 

261 

STHA 

261 

STO 

VECT2 

262 

STHA 

262 

CLA 

D6 

263 

STHA 

263 

STO 

VECT4 

264 

STHA 

264 

TRA 

1  »4 

265 

STHA 

265 

SV4 

PZE 

266 

STHA 

266 

WOPG 

LXA 

D  < 17 ) » 1 

267 

STHA 

267 

SXD 

W0PG4  s  4 

268 

STHA 

268 

TSX 

0T0Ds4 

GET  PAGE  IN  BCI 

269 

STHA 

269 

CLA 

IND72 

270 

STHA 

270 

TNZ 

*+2 

HDTST 

271 

STHA 

271 

TXI 

*+l 9 1 9“8 

272 

STHA 

272 

SXA 

WR5  9 1 

STHA 

273 

PXA 

♦  1 

STHA 

274 

ADD 

RECRD 

STHA 

275 

ADD 

D(  1) 

STHA 

276 

STA 

WR6 

STHA 

277 

LXA 

D ( 20  )  » 2 

SAVE 

STHA 

278 

CLA 

REC+20,2 

RECORD 

STHA 

279 

STO 

SVREC+20  9  2 

BUFFER 

STHA 

280 

T  I X 

*^29291  ■; 

•  •  ::  £  43 

STM4 

CLA 

15BLK 

STO 

REC 

CLA 

ALBLK 

WR6 

STO 

»1 

T  I X 

*-1*1*1 

WR5 

AXT 

,1 

LXA 

D(2)  *2 

PXA 

♦  1 

ADD 

D  (  3 ) 

PAX 

♦  1 

PXA 

♦  1 

ADD 

RECRD 

STA 

*+2 

CLA 

PAGEN+2*  2 

STO 

.2 

T  IX 

*-2*2 * 1 

SXD 

WR7+1 » 1 

CLA 

RECRD 

STA 

WR7  +  1 

WR7 

TSX 

WRITE»4 

PZE 

* *  — 

LXA 

D  ( 20 ) ,2 

RESTORE 

CLA 

SVREC+20 » 2 

RECORD 

STO 

REC+20,2 

BUFFER 

T I X 

*-2 *2*1 

CLA 

D53 

STZ 

HDC 

STZ 

HDN 

LXD 

W0PG4»4 

TRA 

SR 

W0PG4 

PZE 

SVRE. 

C  BSS 

20 

♦WRBF 

WRITE  BUFFER  ON  TAPE 

*ADDRESSES 

ARE  STORED  BY  STH 

ETC. 

WRBF1 

CAL 

BUF 

ANA 

MSK 

ORA 

MO, 2 

SLW 

BUF 

WRBF2 

SXD 

W4»4 

CLA 

NWDS 

STD 

WR8  +  1 

CLA 

BUFNW 

STA 

WR8  +  1 

WR8 

TSX 

WR I TE  *4 

PZE 

»  0  ,  — * 

LXD 

W4»4 

CAL 

VECT » 2 

ADD 

NL 

STD 

NL 

CLA 

lpp 

SUB 

NL 

STD 

NLLFT 

CAL 

VECT2 

SUB 

VECT, 2 

TZE 

*+2 

TPL 

*+2 

ADC 

D18 

STHA  282  ! 
STHA  283  ! 
STHA  284  : 
STHA  285  i 
STHA  286 
STHA  287 
STHA  288 
STHA  289 
STHA  290 
STHA  291 
STHA  292 
STHA  293 
STHA  294 
STHA  295  : 
STHA  296 
STHA  297 
STHA  298 
STHA  299 
STHA  300 
STHA  301 
STHA  302 
STHA  303 
STHA  304 
STHA  305 
STHA  306 

280  STHA  307 

281  STHA  308 

282  STHA  309 

283  STHA  310 

284  STHA  311 

285  STHA  312 
STHA  313 

286  STHA  314 

287  STHA  315 

288  STHA  316 

289  STHA  317 

290  STHA  318 

291  STHA  319 

292  STHA  320 
STHA  321 
STHA  322 
STHA  323 
STHA  324 
STHA  325 
STHA  326 

298  STHA  327 

299  STHA  328 

300  STHA  329 

301  STHA  330 

302  STHA  331 

303  STHA  332 

304  STHA  333 

305  STHA  334 

306  STHA  335 

307  STHA  336 

308  STHA  337 

309  STHA  338  < 


STO 

VECT2 

310 

STHA 

33! 

SUB 

D6 

-  ■  - 

311 

STHA 

34( 

TZE 

*+2 

312 

STHA 

34! 

TPL 

*-2 

313 

STHA 

34; 

ADD 

D6 

314 

STHA 

34- 

STO 

VECT4 

315 

STHA 

34* 

TRA 

1,4 

316 

STHA 

34! 

W4 

PZE 

317 

STHA 

34( 

*PNUM 

PROCESS  BLANK,  2,  4 

,  0 , 

318 

STHA 

34: 

PNUM 

STZ 

R 

0  TO  RESTORE  INDICATOR 

319 

STHA 

34( 

TSX 

ELFT ,4 

TEST  IF  LINES  LEFT 

320 

STHA 

34! 

TRA 

NOT 

NO 

321 

STHA 

3  5  ( 

TSX 

WRBF2  *4 

YES  WRITE  BUFFER 

322 

STHA 

35] 

TRA 

OUT 

323 

STHA 

35; 

NOT 

LXA 

D(  1 )  ,2 

REPLACE  COL  1  BY  1 

324 

STHA 

35- 

TRA 

PI 

325 

STHA 

35* 

* I LLGL  PROCESS  ILLEGAL 

CHARACTER 

326 

STHA 

35! 

TOILG 

TRA 

NILL1+1 

327 

STHA 

356 

I  LLGL 

CLA 

TOILG 

328 

STHA 

351 

STO 

BACK 

329 

STHA 

356 

LXA 

D(6)  ,2 

330 

STHA 

35$ 

TSX 

ELFT, 4 

4LINES  LEFT 

331 

STHA 

36C 

TRA 

NILL 

NO 

332 

STHA 

36] 

LXA 

D(0)  ,2 

YES 

333 

STHA 

362 

NILL1 

TSX 

WRBF1 ,4 

WRITE  LINE  WITH  BLANK 

334 

STHA 

36- 

CAL 

1LMSK 

335 

STHA 

36* 

ANS 

ILCH+3 

336 

STHA 

36! 

CAL 

CONT 

337 

STHA 

36£ 

ALS 

12 

I  LLGL 

338 

STHA 

361 

ORS 

ILCH+3 

339 

STHA 

36£ 

CLA 

ELFT+4 

340 

STHA 

36$ 

STO 

BACK 

341 

STHA 

37C 

LXD 

X4,4 

342 

STHA 

37] 

SXD 

XX4 ,4 

1 

343 

STHA 

372 

LXD 

X2 , 2 

344 

STHA 

373 

LXD 

XI  ,1 

345 

STHA 

37* 

TSX 

STHB»4 

STHA 

37! 

LILCH 

PZE 

I LCH ,0 , 10 

347 

STHA 

376 

LXD 

XX4 , 4 

348 

STHA 

377 

TRA 

2,4 

349 

STHA 

378 

XX4 

PZE 

350 

STHA 

379 

NILL 

LXA 

D ( 1  )  ,2 

351 

STHA 

38C 

TRA 

PI 

352 

STHA 

381 

*OTOD 

OCTAL  TO  DECIMAL 

INTEGER 

353 

STHA 

382 

*SETS 

UP  2 

WORDS  OF  BCI  * 

PAGE  XXXX  * 

354 

STHA 

383 

*CALL 

355 

STHA 

38*i 

* 

TSX  OTOD ,4 

356 

STHA 

38! 

OTOD 

SXD 

0S4 ,4 

357 

STHA 

386 

CLA 

50BLK 

358 

STHA 

387 

STO 

PGN 

359 

STHA 

388 

LXA 

D( 30) ,4 

360 

STHA 

389 

CLA 

NP 

361 

STHA 

39C 

ARS 

18 

362 

STHA 

391 

LRS 

35 

NP  TO  MO 

363 

STHA 

392 

DVlO 

DVP 

D(  10) 

N { I ) / 10 

364 

STHA 

393 

ALS 

36 , 4 

SHIFT  REMAINDER 

365 

STHA 

394 

TXI 

*+l f 4 , —6 

. 

366 

5IbA 

395 

I NSB 


PGNM 

0S4 

T 

*RESTO 


ORS 
STQ 
CLA 
TZE 
PXD 
TRA 
LDQ 
LXA 
PXD 
LGL 
TNZ 
T  IX 
IX I 
CAL 
ORS 
LXD 
TRA 
PZE 
BCD 
BCD 
BCD 
BCD 
PZE 
PZE 
PAPER 
IS 


PGN 

T 

T 

I  NSB 

DV10 

PGN 

D ( 5  5  »4 
6 

*h-2 

*-2 »4» 1 
*+l »4*-l 
PGNM»4 
PGN 
0S4  »4 
ls4 


MASK  INTO  PGN 


00000 

0000 

000 

00 


WILL  BE 
WRITTEN 


LEADING 

* 

* 

* 

* 


BLANKS 

* 

* 

* 

* 


THESE 
MUST  BE 
IN  THIS 
IDENTICAL 
ORDER 


RESTORED  BEFORE 


PAGE  NUMBER 


CURRENT  PAGE  NO  TO  NP 


♦NEXT  LINE 
♦USAGE 

*  CALL  RESTO 

RESTO  SXD  X4 »  4 

TRA  BOT.2 

♦PAGES  RETURNS  THE  CURRENT 
♦USAGE 

*  CALL  PAGES ( NP ) 

♦PAGES  AND  LINES 

PAGES  CLA  1 »4 
STA  *+3 
CLA  NP 
SUB  D1 
STO 

TRA  2  s>4 

♦LINES  RETURNS  THE  NUMBER  OF  LINES 
♦PRINTED  SO  FAR  ON  THE  CURRENT  PAGE 
♦USAGE 

*  CALL  LINES(NL)  NO.  OF  LINES  TO 
LINES  CLA  1 »4 

STA  *+2 
CLA  NL 
STO 


NL 


367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

402 

403 

404 

405 

406 

407 

408 

409 

410 

412 

413 

414 


STHA 
STHA 
STHA 
STHA 
STHA 
STHA 
STHA 
STHA 
STHA 
STHA 
STHA 
STHA 
STHA 
STHA 
STHA 
STHA 
STHA 
STHA 
STHA 
STHA 
STHA 
STHA 
STHA 
STHA 
STHA 
STHA 
STHA 
STHA 
STHA 
STHA 
STHA 
STHA 
STHA 
STHA 
STHA 
STHA 
STHA 
STHA 
STHA 
STHA 
STHA 
ST  HA 
STHA 
STHA 
STHA 
STHA 
STHA 
STHA 


396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 


TRA  2*4 

♦NEWSET  RESETS  PAGE  NUMBER  TO  ARGUMENT i NP ) 
♦AND  SETS  INDICATOR  TO  PRINT  PAGE  NUMBER 
♦USAGE 

♦  CALL  NEWSET ( NP )  NEXT  PAGE  WILL  BE  NP 

NEWSET  CLA  1»4 
STC  HDP 
STA  *+l 
,  .  CLA 


415 

STHA 

444 

416 

STHA 

445 

417 

STHA 

446 

418 

STHA 

447 

419 

STHA 

448 

STHA 

449 

421 

STHA 

450 

422 

STHA 

451 

423 

STHA 

452 

SSP 

STO  NP 
TRA  2»4 

♦HDING  INITIALIZES  STH  TO  WRITE 
♦SPECIFIED  HEADING  SETS  CHHD=1 


♦USAGE  _  T„ 

*  CALL  HDING(A)  WHERE  A  IS  THE  IN 

*  LOCATION  OF  120 

*OR  CALL  HDING(120H  » » .HEADI NG« • • ) 
♦HDING  PROCESS  CALL  HDING(A) 
♦INITIALIZES  FOR  HEADING  COPY  LOOP 


ITIAL 

BCI  CHARACTERS 


HDING  CLA  1»4 
STA  ADHD 
STA  ADRHD 
CLA  MBHD 
STO  CHHD 
STO  BINHD 
TRA  2?4 

♦COLUMN  INITIALIZES  PRINTOUT  OF  PAGE 
♦NUMBER  FOR  72  OR  120  COLUMN  PRINTOUT 
♦IF  NOT  SPECIFIED  120  IS  ASSUMED 


♦USAGE 

♦  CALL  COLUMN (N! 

* 


N  =  7 2  FOR  72COL. 

N  NOT  =72  FOR  120 


COLUMN  CLA  1*4 
STA  *+l 
CLA 

SUB  D72 
STO  IND72 
TRA  2  *4 

♦NOPAGE  INIALIZES  STH  TO  OMIT  WRITING 

♦PAGE  NUMBFR 

♦USAGE 

♦  CALL  NOPAGE 

NOPAGE  STZ  HDP 
TRA  1 9  4 

♦NOHEAD  INITIALIZES  STH  TO  OMIT  WRITING 
♦HEADING  BEGINNING  WITH  NEXT  PAGE 


♦USAGE 

♦  CALL  NOHEAD 
NOHEAD  STZ  CHHD 

STZ  HDN 
CLA  MBHD 
STO  BINHD 
TRA  1 » 4 

♦BOTTOM  PRINTS  HEADING  IF  THERE  IS 
♦ONE  AT  BOTTOM  OF  PAGE  AND  SETS  LINE  CTR 
♦USAGE 

♦  CALL  BOTTOM 

♦BOTTOM  WRITES  HEADING  AT  BOTTOM 
BOTTOM  SXD  X4»4 
CLA  BOTLS 
TNZ  BOT  ®  2 


SXD  BOTLS  94 
CLA  HDC 
TZE  BOT.l 
TSX  WRHD *4 


424  STHA  453 

425  STHA  45* 

426  STHA  45J 

427  STHA  45f 

428  STHA  451 

429  STHA  45f 

430  STHA  45? 

431  STHA  46( 

432  STHA  46: 

433  STHA  461 

434  STHA  46: 

435  STHA  46‘ 

436  STHA  46! 

437  STHA  46< 

438  STHA  46' 

439  STHA  46< 

440  STHA  46' 

441  STHA  47 

442  STHA  47 

443  STHA  47 

444  STHA  47 

445  STHA  47 

446  STHA  47 

447  STHA  47 
STHA  47 

449  STHA  47 

450  STHA  47 

451  STHA  48 

452  STHA  48 

453  STHA  48 

454  STHA  48 

455  STHA  48 

456  STHA  48 

457  STHA  48 
STHA  48 

459  STHA  48 

460  STHA  48 

461  STHA  45 

462  STHA  45 

463  STHA  45 
STHA  45 

465  STHA  45 

466  STHA  45 

467  STHA  45 

468  STHA  45 

469  STHA  45 

470  STHA  45 

471  STHA  5( 

472  STHA  5< 

473  STHA  5( 
STHA  5 ( 

475  STHA  5i 

476  STHA  5! 

477  STHA  5' 

478  STHA  5' 

479  STHA  5 

480  STH^  5 


BOT.2 

PZE 

STZ 

NLLFT 

CLA 

LPP 

STO 

NL 

LXD 

X4  »  4 

TRA' 

1*4 

BOT.  1 

CLA 

NLLFT 

TZE 

BOT. 2+1 

CLA 

85BLK 

STO 

REC 

TSX 

WRITE, 4 

PZE 

REC, , 1 

TRA 

BOT.2 

85BLK 

BCD 

18 

*  I  PM  AND  FPM 
ANPIPM  CAL  TS1P8 
SLW  STH 1 
IPMP8  CLA  1,4 

SXD  PMSV4.4 
TNZ  FPM 
CLA  STH 1 
STO  SVSH1 
CLA  TOPM1 
STO  STH1 
TSX  BOTTOM, 4 

CLA  15BLK 
STO  REC 
TSX  WRITE, 4 
PZE  REC, 0,1 
LXD  PMSV4»4 
TRA  2 »4 
TOPM2  TTR  PM2 
PMSV4  PZE 
TOPM1  TTR  PM1 

SVSH1  PZE  ORIGINAL  STH1 

PM1  CLA  1,4 
STA  *+5 
STA  *+l 
CAL 

ANA  MSK 
ORA  MBL 
SLW 

CLA  TOPM2 
STO  STH1 


PM2 

CLA 

194 

STO 

WR9  +  1 

SXD 

X4*4 

WR9 

TSX 

WR I IE  » 4 

PZE 

9  9 - 

LXD 

X4  9  4 

TRA 

294 

FPM  CLA  SVSH1  RESTORE  OR  INAL 

STO  STH1  STH1 

TRA  2,4 

♦LOCATION  SYMBOLS 

NL  PZE  NUMBER  OF  LINES  PRINTED 

R  ,  PZE  ,  RESTORE  INDICATOR  ! 


481 

STHA 

510 

482 

STHA 

511 

483 

STHA 

512 

484 

STHA 

513 

485 

STHA 

514 

486 

STHA 

515 

487 

STHA 

516 

488 

STHA 

517 

STHA 

518 

STHA 

519 

STHA 

520 

STHA 

521 

492 

STHA 

522 

493 

STHA 

523 

494 

STHA 

524 

STHA 

525 

501 

STHA 

526 

502 

STHA 

527 

503 

STHA 

528 

504 

STHA 

529 

505 

STHA 

530 

5  06 

STHA 

531 

507 

STHA 

532 

508 

STHA 

533 

STHA 

534 

STHA 

535 

STHA 

536 

STHA 

537 

STHA 

538 

513 

STHA 

539 

514 

STHA 

540 

515 

STHA 

541 

516 

STHA 

542 

517 

STHA 

543 

518 

STHA 

544 

519 

STHA 

545 

520 

STHA 

546 

521 

STHA 

547 

522 

STHA 

548 

523 

STHA 

549 

524 

STHA 

550 

525 

STHA 

551 

526 

STHA 

552 

527 

STHA 

553 

STHA 

554 

STHA 

555 

STHA 

556 

STHA 

557 

540  STHA  558 

541  STHA  559 

542  STHA  560 

543  STHA  561 

544  STHA  562 

545  STHA  563 


HOC  PZE 
NLLFT  PZE 
BOTHD  PZE 
TOPHD  PZE 
PAGEN  BCD  1  PAGE 
PGN  PZE 
LPP  PZE 
15BLK  BCD  11 
5 3BLK  BCD  lOOOOO 
*MASKS  FOR  ADDINING  CONTROL 
MSK  OCT  007777777777 
MBHD  OCT  376060606060 
ALBLK  BCD  1 
Z5BLK  BCD  10 
DMSK  OCT  077777000000 
ILMSK  OCT  377777007777 
BCD  1100000 
M8  BCD  1800000 

PZE 
PZE 

M4  BCD  1400000 

MBL  BCD  1  00000 
M2  BCD  1200000 

Ml  BCD  1100000 

MO  BCD  1Q00000 

NWDS  PZE 
BUF  PZE 
1STWD  PZE 
X4  PZE 

X2  PZE 

XI  PZE 

CONT  PZE 

ILCH  BCD  50C0NTROL  CHARAC 
BCD  5ECEDING  LINE  IS 
TXL  P8 
TXL  ILLGL 
TXL  I LLGL » 0 » 0 
TXL  I LLGL » 0 »4 
TXL  PNUM 9  0*6 
TXL  I LLGL  *  0  9 1 
TXL  PNUM 9 0 » 18 
TXL  P1»0»1 
SET  TXL  PNUM  * 0 » 2 
BCD  14 
BCD  10 

1WD  BCD  1 

^CONSTANTS  IN  ADDRESS  PORT  I 

D { 2 )  PZE  2 

D  C  3  )  PZE  3 

D ( 5  5  PZE  5 

D ( 6 )  PZE  6 

DUO)  PZE  10 

D ( 17  )  PZE  17 

0(19)  PZE  19 

D(20)  PZE  20 

D ( 24  )  PZE  24 

D  C  3 0  »  PZE  30 


CURRENT  HEAD! No  1NU1LAI 
LINES  LEFT 


PAGE  NUMBER  IN  DECIMAL 
LINES  PER  PAGE 


CHARACTER 


BLANK 


NUMBER  OF  WORDS 
ADDRESS  FOR  COPY  LOOP 
1ST  WORD  OF  OUTPUT 
ORIGINAL  C ( 4 } 

ORIGINAL  C(2> 

ORIGINAL  C ( 1 > 

CONTROL  FROM  PROGRAM 
TER  *  C  *  OF  PR 
NOT  LEGAL 
8 
7 

5  LATER  PLUS 

6  STAYS  ILLGL 
4 

3  LATER  BLANK 
2 
1 
0 

6  LINES 
2  LINES 
1  LINE 


PHO  o I  DM  POH 

547  STHA  565 

548  STHA  566 

549  STHA  567 

550  STHA  568 

551  STHA  569 

552  STHA  570 

553  STHA  571 

554  STHA  572 

555  STHA  573 

556  STHA  574 

557  STHA  575 

558  STHA  576 

559  STHA  577 

560  STHA  578 

561  STHA  579 

562  STHA  58C 

563  STHA  582 

564  STHA  582 

565  STHA  582 

566  STHA  58^ 

567  STHA  582 

568  STHA  58d 

569  STHA  581 

570  STHA  58£ 

576  STHA  582 

577  STHA  5 9 ( 

578  STHA  59] 
575  STHA  59; 

579  STHA  59: 

580  STHA  59' 

581  STHA  59! 

582  STHA  59< 

583  STHA  59' 

584  STHA  591 

585  STHA  59! 

587  STHA  60: 

586  STHA  60( 

588  STHA  60; 

589  STHA  60: 

590  STHA  60- 

591  STHA  60 

592  STHA  60 1 

593  STHA  60 

594  STHA  60> 

595  STHA  60 

596  STHA  61 

597  STHA  61 

598  STHA  61 

599  STHA  61 

600  STHA  61 

601  STHA  61 

602  STHA  61 

603  STHA  61 

604  STHA  61 

605  STHA  61 

606  ST. HA  62 


D  t  32  ) 

PZE 

32 

607 

STHA 

621 

D  (  36  ) 

PZE 

36 

— 

608 

STHA 

622 

D  ( 48  ) 

PZE 

48 

609 

STHA 

623 

D !  52  ) 

PZE 

52 

610 

STHA 

624 

♦CONSTANTS 

IN  DECREMENT 

611 

STHA 

625 

D 1 

PZE 

» 0  » 1 

612 

STHA 

626 

D5 

PZE 

s  0 , 5 

613 

STHA 

627 

D6 

PZE 

,0,6 

614 

STHA 

628 

D7 

PZE 

»  0 » 7 

615 

STHA 

629 

D 17 

PZE 

9  0  9  17 

616 

STHA 

630 

D18 

PZE 

» 0 » 1 8 

617 

STHA 

631 

D 19 

PZE 

,0,19 

618 

STHA 

632 

D72 

PZE 

« 0  9  72 

619 

STHA 

633 

TIP8 

TTR 

IPMP8 

621 

STHA 

634 

TS1P8 

TTR 

STH18 

622 

STHA 

635 

TOSTH 

TTR 

STHB 

STHA 

636 

*NEW  VECTOR 

FOR  LINES  REQUIRED 

623 

STHA 

637 

VECT6 

PZE 

90,4 

4  LINES  FOR  ILLEGAL  CHAR. 

624 

STHA 

638 

VECT5 

PZE 

9  0  9  0 

0  LINES  FOR  + 

625 

STHA 

639 

VECT4 

PZE 

VARIABLE  NUMBER  FOR  4 

626 

STHA 

640 

VECT3 

PZE 

90,1 

1  LINE  FOR  BLANK 

627 

STHA 

641 

VECT2 

PZE 

VARIABLE  NUMBER  FOR  2 

628 

STHA 

642 

VECT1 

PZE 

,0,1 

1  LINE  FOR  RESTORE 

629 

STHA 

643 

VECT 

PZE 

,0,2 

2  LINES  FOR  0 

630 

STHA 

644 

SVV4 

PZE 

632 

STHA 

645 

BOTLS 

PZE 

NON-ZERO  IF  BOT.  HD  WAS  LAST 

633 

STHA 

646 

3, 

PZE 

0 

STHA 

647 

BUFNW 

PZE 

0 

STHA 

648 

REM 

STHA 

649 

REM 

THIS  ROUTINE  WRITES  AN  N  WORD 

STHA 

650 

REM 

RECORD  STARTING 

AT  LOCATION  M. 

STHA 

651 

REM 

TSX  WR I TE»4 

STHA 

652 

REM 

PZE  M  *  0  »  N 

STHA 

653 

REM 

STHA 

654 

WRITE 

CLA 

1,4 

BUFFER  ADDRESS ,0 » NO.  OF  WORDS. 

STHA 

655 

STO 

WR  +  1 

STHA 

656 

STA 

REC1 

STHA 

657 

SXA 

WR1,4 

SAVE  IR4. 

STHA 

658 

WR 

TSX 

STHW  9  4 

STHA 

659 

PZE 

9  0  9  — 

STHA 

660 

WR1 

AXT 

94 

STHA 

661 

CLA 

RECRD 

RESTORE  REC  IN  ADDRESS. 

STHA 

662 

STA 

REC1 

STHA 

663 

TRA 

2  ?4 

OUT. 

STHA 

664 

RECRD 

PZE 

REC 

STHA 

665 

REM 

STHA 

666 

(STH) 

LDQ 

*-5-2 

PICKUP  SWITCH  SETTING,  AND 

STHA 

667 

TRA* 

$(  IOH) 

GO  INITIALIZE  (IOH). 

STHA 

668 

TRA 

STH 

OUTPUT  /  STORAGE  TO  TAPE  HOLLERITH. 

STHA 

669 

(STHM) 

LDQ 

*+2 

PICKUP  SWITCH  SETTING,  AND 

STHA 

670 

TRA* 

(  IOH) 

GO  INITIALIZE  IOH. 

STHA 

671 

TRA 

STHM 

OUTPUT  /  TAPE  MONITOR. 

STHA 

672 

REM 

STHA 

673 

STHM 

CAL 

37 

INCREASE 

STHA 

674 

ADM 

TES+2 

LINE  COUNT 

STHA 

675 

STA 

37 

BY  !•  ~  _ _ 

STHA 

676 

REM 

£  3~P 

STHA 

677 

STH 

TTR 

STHA 

STHW 

SX  A 

STHX  9 A 

SAVE  RETURN  INDEX. 

TES 

TSX 

$(WER) 94 

GO  CHECK  PREVIOUS  WRITE 

LXA 

STHX94 

CAL 

194 

SET  WORD  COUNT 

STD 

STHC 

OF  WRITE  COMMAND. 

AXT 

0  94 

SX  A 

*+692 

MOVE 

PDX 

92 

RECORD 

REC1 

CAL 

REC  94 

INTO 

SLW 

OUTPUT  94 

OUTPUT 

TXI 

*+1949-1 

BUFFER. 

T  IX 

*“39291 

AXT 

92 

CAL 

TES 

SET  SWITCH  FOR 

SLW* 

SITES) 

WRITE  OVERLAP. 

XEC* 

SIWRS) 

SELECT  CURRENT  UNIT. 

AXC 

STHC94 

INITIALIZE 

PXA 

94 

FOR 

STA* 

$ ( WTC ) 

WRITE  CHECKING. 

XEC* 

$ ( RCH) 

WRITE  ONE  TAPE  RECORD. 

STHX 

AXT 

94 

RESTORE  RETURN  INDEX. 

TRA 

2.4 

EXIT  TO  I  OH • 

REM 

REM 

STHC 

IOST 

OUTPUT  9  9  — 

WRITE  COMMAND 

OUTPUT 

BSS 

20 

OUTPUT  BUFFER 

COMMON 

-205+20 

WAS  206 

REC  . 

COMMON 

1 

RECORD  BUFFER 

REM 

END 

*WOT  —  WRITE 

OUTPUT  TAPE 

NOV  1960 

COUNT 

100 

ENTRY 

WOT 

* 


*  FORTRAN  2  LIBRARY  SUBROUTINE  WOT 

* 

*  WOT  REQUIRES  ( LEV ) * ( F I L ) * ( STH ) »  AND  (SPH)  TO  BE  IN  THE 

* 

*  CALLING  SEQUENCE 

* 


*  CALL  WOT  (N) 

* 

* 

*  THE  WOT  SUBROUTINE  WILL  CONTROL  ALL  PRINT  AND/OR 

*  WRITE  OUTPUT  TAPE  STATEMENTS  IN  THE  PROGRAM  WHICH 

*  OCCUR  LOGICALLY  AFTER  THE  FIRST  USE  OF  THE  WOT 

*  SUBROUTINE.  THE  ARGUMENT  USED  WILL  APPLY  UNTIL 

*  ANOTHER  CALL  WOT  (N)  STATEMENT  IS  USED  TO  CHANGE 

*  THE  ARGUMENT  TO  ANOTHER  VALUE.  EITHER  AN  INTEGER 

*  OR  AN  INTEGER  VARIABLE  MAY  BE  USED  FOR  THE 

*  ARGUMENT  THUS  ALLOWING  THE  PROGRAMMER  TO  FIX  THE 

*  OUTPUT  OR  TO  PLACE  IT  UNDER  CONTROL  OF  AN  INPUT 


STHA  67! 
STHA  67' 
STHA  68i 
STHA  68: 
STHA  68; 
STHA  68! 
STHA  68' 
STHA  68! 
STHA  68 < 
STHA  68' 
STHA  681 
STHA  68' 
STHA  6 9 C 
STHA  69] 
STHA  691 
STHA  69: 
STHA  69^ 
STHA  695 
STHA  69f 
STHA  691 
STHA  696 
STHA  69S 
STHA  70C 
STHA  701 
STHA  702 
STHA  702 
STHA  704 
STHA  705 
STHA  706 
STHA  707 
STHA  708 


*  .  W" irH'~A~'“D” f FF E RENT  IN T EG E R  VARIABLE  IN  THE  ARGUMENT 

*  PRIOR  TO  EACH  SET  OF  OUTPUT  COMPLETE  CONTROL  OF 

*  EACH  SET  OF  OUTPUT  MAY  BE  MADE  A  FUNCTION  OF  INPUT* 

*  REGARDLESS  OF  WHETHER  A  PRINT  OR  A  WRITE  OUTPUT 

*  .  TAPE  STATEMENT  WAS  USED  9  OUTPUT  WILL  BE  GIVEN  ON 

*  TAPE  3  AND/OR  THE  PRINTER  ACCORDING  TO  THE 

*  FOLLOWING  SCHEME  - 


* 

* 


ARGUMENT 

OUTPUT  ON 

# 

OF  WOT 

TAPE  3 

PRINTER 

* 

* 

* 

1 

YES 

YES 

* 

2 

YES 

IF 

SW3  DOWN 

* 

3 

YES 

NO 

* 

4 

IF 

SW3  UP 

YES 

* 

5 

IF 

SW3  UP 

IF 

SW3  DOWN 

* 

6 

IF 

SW3  UP 

NO 

* 

7 

NO 

YES 

* 

8 

NO 

IF 

SW3  DOWN 

* 

9 

NO 

NO 

* 

* 

* 

* 

* 

* 


* 


WOT 


WOTA 


CAL 

TRWOTB 

ENTRY  FOR  FIRST 

SLW* 

S(STH) 

OCCURRENCE  OF  CALL  WOT 

CAL 

TRWTB1 

SLW* 

$ ( SPH ) 

CAL 

TRWOTA 

SET  TYPE  ROUTINES  TO 

SLW 

WOT 

BRING  IN  WOT 

CAL 

5 ( STH ) 

ADD 

=  3 

INITIALIZE  JUMPS 

STA 

TRASH 

FROM  I OH 

CAL 

$  ( SPH ) 

ADD 

FIVE 

STA 

TRASP 

CLA* 

1  »4 

ENTRY  FOR  SUCCEEDING 

ARS 

18 

CALL  WOTS 

ADD 

*+6 

STA 

*+l 

LOOK  UP  IN  TABLE  AND 

CLA 

SET  TRIGGERS  FOR 

STA 

T  CON 

WRITE-PRINT  OPTIONS 

STD 

PCON 

TRA 

2  94 

BACK  TO  MAIN 

HTR 

* 

PZE 

2  »0 »  2 

ADDR.=1  WRITE  IF  SW3  UP 

PZE 

2*0*1 

ADDR • -2  WRITE 

PZE 

2  9  0  9  3 

ADDR®=3  DONT  WRITE 

PZE 

1*0*2 

PZE 

1*0*1 

DECR*  =  1  PRINT  IF  SW3  DOWN 

D7C 

1  -  n  ~  a 

ncro . -0  dp  T  nt 

3 


PZE 

3*0*2 

PZE 

3*0*1 

PZE 

3*0,3 

WOTB1 

CAL 

DECR3 

WOTB 

SLW 

UNIT 

SXD 

1X4,4 

CLA 

T  CON 

SUB 

TWO 

TZE 

WRITE 

TPL 

SKIPT 

SWT 

SWCH3 

TRA 

WRITE 

SKIPT 

CLA 

TWO 

STO 

SKCON 

TRA 

WOTD 

WRITE 

STZ 

SKCON 

CAL* 

S(FIL) 

SLW 

CFIL 

CAL 

TRWOTC 

SLW* 

$  (  FI  L  ) 

LDQ 

TRASH 

CAL 

UNIT 

TRA* 

$( I  OH) 

WOT  C 

SXD 

I  N4  *  4 

CAL 

CFIL 

SLW* 

$  (FIL) 

TSX 

$  (  F I L ) *4 

WOTD 

CLA 

PCON 

ARS 

18 

SUB 

TWO 

TZE 

PRINT 

TPL 

SKIPP 

SWT 

SWCH3 

TRA 

SKIPP 

PRINT 

LXD 

1X4*4 

LDQ 

TRASP 

CLA 

DECR3 

TRA* 

$ (IOH) 

SKIPP 

CLA 

SKCON 

TNZ 

SKIPPD 

LXD 

I N4  *4 

TRA 

1*4 

SKIPPD 

LXD 

1X4*4 

CAL 

2*4 

STA 

CLA 

*+l 

SUB 

$  (FIL) 

TZE 

EXIT 

TXI 

SKIPPD+ 

EXIT 

TRA 

3*4 

TRWOTA 

TRA 

WOTA 

TRWOTB 

TRA 

WOTB 

TRWTB1 

TRA 

WOTB1 

TRWOTC 

TRA 

WOT  C 

TRASH 

TRA 

TRASP 

TRA 

TWO.  ... 

DEG 

2 

DECR.=3  DONT  PRINT 


ENTRY  FROM  SPH 
ENTRY  FROM  STH 


TEST  WRITE  TRIGGER 


GO  TO  TEST  PRINT 

SET  FIL  TO  BRING  IN  WOT 


INITIALIZE  FOR 
WRITING  AND 

ENTRY  FROM  FIL 
RESTORE  FIL  AND 
GO  BACK*  BUT  RETURN 
WILL  BE  TO  WOTD 


TEST  PRINT  TRIGGER 


SET  INDEX  FOR  RETURN 
TO  FIRST  INSTR  AFTER 
TSX  TYPE.  INITIALIZE 

WE  DIDNT  PRINT 
DID  WE  WRITE 
YES  RETURN  TO  FIRST 
INSTR  AFTER  TSX  FIL 

NO  FLIP  THROUGH 
AND  LOOK  FOR  IT 

GO  THERE 

-1 

THEN  TRANSFER 


4^3 


FIVE 

DEC  ' 

ICON 

P2E 

PC  ON 

PZE 

UNIT 

PZE 

SKCON 

PZE 

CFIL 

PZE 

IN4 

PZE 

1X4 

PZE 

DECR3 

MZE 

SWCH3 

t  t  J  J  9  l 

EQU 

f  t  S  1  e  J 

ENID 

